include "draw.m";
draw := load Draw Draw->PATH;
Screen: adt
{
id: int;
image: ref Image;
fill: ref Image;
display: ref Display;
allocate: fn(image, fill: ref Image, public: int): ref Screen;
newwindow: fn(screen: self ref Screen, r: Rect,
backing:int, rgba: int): ref Image;
top: fn(screen: self ref Screen, wins: array of ref Image);
};
| DRAW-SCREEN(2 ) | Rev: Tue Mar 31 02:42:39 GMT 2015 |