% Nom du fichier: InitPutLine.sim % Description: Exemple simple de ScrollWindow avec des appels mutliples % de InitPutLine avant l'affichage initial % Note: Le curseur est AU DEBUT (contrairement a PutLine) % Auteur: JPH % Date: Le 16 mai 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("InitPutLine") DO BEGIN REF(Button) Quit; REF(ScrollWindow) SW; SetSize(500, 200); Quit :- MakeButton("Ok"); SW :- MakeScrollWindow.AllowInput; INSPECT SW DO BEGIN INTEGER i; FOR i := 1 STEP 1 UNTIL 30 DO InitPutLine("Choix " & int_as_text(i)); END; Show; Quit.Wait; END; END;