code: purgatorio

ref: f4624471579e0cfb531ffc733cdbe007ecdfed9d
dir: /appl/acme/gui.m/

View raw version 
Gui: module {
	PATH: con "/dis/acme/gui.dis";
	WMPATH: con "/dis/acme/guiwm.dis";

	display : ref Draw->Display;
	mainwin : ref Draw->Image;
	yellow, green, red, blue, black, white : ref Draw->Image;

	init : fn(mods : ref Dat->Mods);
	spawnprocs : fn();
	cursorset : fn(p : Draw->Point);
	cursorswitch: fn(c : ref Dat->Cursor);

	killwins : fn();
};