BEGIN EXTERNAL CLASS WindowTools; Button CLASS RespButton; BEGIN PROCEDURE Handle_DoubleClick(W); REF(XWindow) W; parent.Handle_ButtonClick( This Button ); END; INSPECT NEW MainWindow("Main") DO BEGIN REF(RespButton) Quit, Print, B; REF(RespButton) PROCEDURE MakeRespButton(T); TEXT t; MakeRespButton :- New RespButton( This XWindow, t) .PlaceAfter( LastSubwindow ).Show; Print :- MakeRespButton("Print").PlaceCentered; Quit :- MakeRespButton("Quit").PlaceDownRight; SetSize(200, 200); Show; WaitForButtonClick(B); WHILE NOT B == quit DO BEGIN IF B == Print THEN Outline("Print"); WaitForButtonClick(B); END; END; END;