BEGIN EXTERNAL CLASS WindowTools; MainWindow CLASS MyWnd; BEGIN REF(Button) Quit, Print; PROCEDURE Handle_ButtonClick(b); REF(Button) b; BEGIN Outline("Printing..."); END; PROCEDURE Handle_DoubleClick(b); REF(XWindow) b; BEGIN Outline("Double-Click"); END; Print :- MakeButton("Print").PlaceCentered; Quit :- MakeButton("Quit").PlaceDownRight; SetSize(200, 200); Show; Quit.Wait; END; NEW MyWnd("Main"); END;