Charles.Forsyth20060303-partialeea662d19 years agoHistory
14 lines · 319 B · Objective-C
RawDownload
Cvsimages: module {	PATH: 	con "/dis/lib/cvsimages.dis";	init:		fn();	Cvsimage: adt {		new:		fn(win: ref Tk->Toplevel, w: string): ref Cvsimage;		fix:		fn(ci: self ref Cvsimage);		config:	fn(ci: self ref Cvsimage): int;			image:	ref Draw->Image;		win:		ref Tk->Toplevel;		w:		string;		r:		Draw->Rect;	};};