% Nom du fichier: HighScore.sim % Description: Exemple d'utilisation d'un ListWindow % Le programme met les lignes d'un fichier dans % la ListWnd, ce qui cree la fenetre e HighScore! % Notes: Le fichier "HyperDuperGame.scr" est necessaire... % Les noms sont fictifs... Toute ressemblance avec % quiconque est pure coincidence... % Auteur: JPH % Date: Le 11 juin 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("*** High Scores ***") DO BEGIN REF(Button) Quit; REF(ListWindow) Scores; REF(InFile) ScoreFile; SetSize(250, 250); SetBackground("gray44"); ScoreFile :- NEW InFile("HyperDuperGame.scr"); ScoreFile.Open(Blanks(80)); Scores :- MakeListWindow .SetLines(10) .SetColumns(21) .PlaceWithCenterIn(125, 100); ScoreFile.InImage; WHILE NOT ScoreFile.LastItem DO BEGIN Scores.InitPutLine(ScoreFile.Image); ScoreFile.InImage; END; Quit :- MakeFancyButton("Ok").PlaceWithCenterIn(125, 220); Show; Quit.Wait; END; END;