% >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> % draw.sim : ce programme exploite la souris et les boutons pour % des dessins simples % >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BEGIN EXTERNAL class DESSIN; FenetrePrincipale class exemple; begin integer X0, Y0; ref(button) Stop_b, Clear_b, Inverse_b; Boolean Fini; ! procedures pour capter Click et choix de boutons ; procedure ClickInButton(B); ref(button) B; if B == clear_b then Clear else if B == inverse_b then Flash else if B == Stop_b then fini := true; clear_b :- MakeButton("Clear"); inverse_b :- MakeButton("Invert"); Stop_b :- MakeButton("Stop"); X0 := width // 2; Y0 := height// 2; SetLinewidth(2); CenteredText(X0,50,"Clicker a divers endroits pour dessiner"); end; inspect new exemple("DRAW1.SIM") do while not fini do begin handle_event; drawLine(X0,Y0,Click_X,Click_Y); X0 := Click_X; Y0 := Click_Y; end; END