% Nom du fichier: SimpleSelectionListWindow.sim % Description: Exemple qui montre une SelectionListWindow % On doit passer par une classe pour que le % Selection_Handler fonctionne... % Auteur: JPH % Date: Le 26 aout 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; MainWindow CLASS MyMainWindow; BEGIN REF(SelectionListWindow) SLW; REF(Button) Ok; INTEGER i; PROCEDURE Selection_Handler(Wnd, Line, LineNbr); REF(XWindow) Wnd; TEXT Line; INTEGER LineNbr; BEGIN OutText(Line); OutImage; END; SetBackground("gray"); SLW :- MakeSelectionListWindow.SetTextSize(25, 10); FOR i := 1 STEP 1 UNTIL 10 DO SLW.PutLine("Ligne " & int_as_text(i)); Ok :- MakeButton("Ok").PlaceRightBelow(SLW); SetSizeToSubwindowSize; Show; Ok.Wait; END; NEW MyMainWindow("SelectionListWindow"); END;