1*46439007SCharles.ForsythCvsimages: module { 2*46439007SCharles.Forsyth PATH: con "/dis/lib/cvsimages.dis"; 3*46439007SCharles.Forsyth init: fn(); 4*46439007SCharles.Forsyth Cvsimage: adt { 5*46439007SCharles.Forsyth new: fn(win: ref Tk->Toplevel, w: string): ref Cvsimage; 6*46439007SCharles.Forsyth fix: fn(ci: self ref Cvsimage); 7*46439007SCharles.Forsyth config: fn(ci: self ref Cvsimage): int; 8*46439007SCharles.Forsyth 9*46439007SCharles.Forsyth image: ref Draw->Image; 10*46439007SCharles.Forsyth win: ref Tk->Toplevel; 11*46439007SCharles.Forsyth w: string; 12*46439007SCharles.Forsyth r: Draw->Rect; 13*46439007SCharles.Forsyth }; 14*46439007SCharles.Forsyth}; 15