begin ! Fil: ~in105/wndlinje3.sim; external class Windowtools; MainWindow class TegneVindu; begin ref(Button) tegn_knapp, blank_knapp, pause_knapp, stopp_knapp; Boolean pause, avsluttet; procedure ClickInButton(b); ref(Button) b; if b == tegn_knapp then TegnLinjer else if b == blank_knapp then Clear else if b == pause_knapp then pause := true else if b == stopp_knapp then avsluttet := true; procedure TegnLinjer; begin pause := false; while not (avsluttet or pause) do begin DrawLine(0, height, randint(0, width, froe), randint(0, height, froe)); handle_pending_events; end; end; integer froe; froe := 1238975; SetSize(450, 300); Show; SetFancy; tegn_knapp :- MakeButton("Tegn linjer"); blank_knapp :- MakeButton("Blankt ark"); pause_knapp :- MakeButton("Pause"); stopp_knapp :- MakeButton("Stopp"); while not avsluttet do handle_event; end TegneVindu; new TegneVindu("Linjer"); end