code: purgatorio

ref: 75c92428225428c8fde2d015f010e608a0b12f1d
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();
};