include "draw.m"; draw:= load Draw Draw->PATH; Context: adt { screen: ref Screen; display: ref Display; cir: chan of int; ckbd: chan of int; cptr: chan of ref Pointer; ctoappl: chan of int; ctomux: chan of int; };
include "draw.m"; Command: module { init: fn(nil: ref Draw->Context; nil: list of string); };Most programs do not create a Context but inherit one from their parent, typically a shell or window system.
ir - infrared remote control in Chapter 15
|