% Nom du fichier: SimpleScrollWindow.sim % Description: Exemple qui montre une ScrollWindow elementaire % Auteur: JPH % Date: Le 20 mai 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("Scroll Window") DO BEGIN REF(Button) Quit; REF(ScrollWindow) SW; SetSize(300, 200); Show; Quit :- MakeButton("OK"); SW :- MakeScrollWindow.AllowInput; Quit.Wait; END; END;