ImagerTestViewer.mesa
Michael Plass, December 28, 1983 1:39 pm
DIRECTORY Imager, ImagerPixelMaps, ViewerClasses;
ImagerTestViewer:
CEDAR
DEFINITIONS
~ BEGIN
NewViewer:
PROC
RETURNS [ViewerClasses.Viewer];
Canvas:
PROC [viewer: ViewerClasses.Viewer]
RETURNS [ImagerPixelMaps.PixelMap];
Hacky way to get a place to paint (not properly locked).
Context:
PROC [viewer: ViewerClasses.Viewer]
RETURNS [Imager.Context];
Another hacky way to get a place to paint (not properly locked).
Painter:
PROC [viewer: ViewerClasses.Viewer, paint:
PROC [Imager.Context,
REF
ANY], data:
REF
ANY ←
NIL];
A better way to paint.
END.