begin ! Fil: ~in105/wndlinje2.sim; external class Windowtools; MainWindow class LinjeVindu; begin ref(PromptWindow) be_vindu; ref(Button) tegn_knapp, blank_knapp, stopp_knapp; procedure ClickInButton(b); ref(Button) b; if b == tegn_knapp then TegnLinjer else if b == blank_knapp then Clear; procedure TegnLinjer; begin integer antall_linjer, linje_nr; antall_linjer := be_vindu.ask_for_int("Antall linjer?"); for linje_nr := 1 step 1 until antall_linjer do DrawLine(width//2, height//2, randint(1, width, froe), randint(1, height, froe)); end; integer froe; froe := 1238975; SetSize(300, 200); Show; tegn_knapp :- MakeButton("Tegn linjer"); blank_knapp :- MakeButton("Blankt ark"); stopp_knapp :- MakeButton("Stopp"); be_vindu :- MakePromptWindow; stopp_knapp.Wait; end; new LinjeVindu(" Windowtools 3"); end