% Nom du fichier: BGFG.sim % Description: Exemple qui permet de voir les couleurs... % Auteur: JPH % Date: Le 26 aout 1997 % Version: 1.01 BEGIN EXTERNAL CLASS windowtools; REF(MainWindow) MWJPH; SideWindow CLASS SW(BG_Para, FG_Para); TEXT BG_Para, FG_Para; BEGIN PROCEDURE Draw; BEGIN Clear; Sleep(0.2); DrawLine(0, 0, width, height); DrawLine(width, 0, 0, height); END; SetSize(200, 200); SetBackGround(BG_Para); SetForeGround(FG_Para); SetLineWidth(25); Show; END --- SW class ---; MWJPH :- NEW MainWindow("Color test"); INSPECT MWJPH DO BEGIN REF(Button) Check, Clear, Quit; REF(TextItemWindow) BG_TiW, FG_TiW; REF(CheckBox) MoveWindows; BOOLEAN Finished; PROCEDURE TreatEvt; BEGIN REF(Button) Temp; IF ButtonClicked(Temp) THEN BEGIN IF Temp == Quit THEN BEGIN Finished := TRUE; END ELSE IF Temp == Clear THEN BEGIN BG_TiW.Put(""); FG_TiW.Put(""); END ELSE IF Temp == Check THEN BEGIN REF(SW) Temp1, Temp2; Temp1 :- NEW SW("BG="&BG_TiW.Get, THIS XWindow, BG_TiW.Get, FG_TiW.Get); IF MoveWindows.Checked THEN Temp1.PlaceAt(100, 500); Temp2 :- NEW SW("BG="&FG_TiW.Get, THIS XWindow, FG_TiW.Get, BG_TiW.Get); IF MoveWindows.Checked THEN Temp2.PlaceAt(310, 500); Temp1.Draw; Temp2.Draw; Sleep(2); Temp1.Draw; Temp2.Draw; Sleep(2); Temp1.Destroy; Temp2.Destroy; END; END; END; BG_TiW :- MakeTextItem("Background", 20); FG_TiW :- MakeTextItem("Foreground", 20).PlaceBelow(BG_TiW); BG_TiW.Put("reD"); FG_TiW.Put("Blue"); Quit :- MakeButton("Quit").PlaceLeftBelow(FG_TiW); Check :- MakeButton("Check").PlaceRightBelow(FG_TiW); Clear :- MakeButton("Clear").PlaceLeftOf(Check); MoveWindows :- MakeCheckBox("Positionning").PlaceLeftOf(Clear); SetSizeToSubwindowSize; Show; WHILE NOT Finished DO BEGIN WaitFor(AlarmEvt+ButtonEvt); TreatEvt; END; END --- Inspect ---; END;