begin ! Fil ~in105/wndmus.sim; external class Windowtools; MainWindow class MuseVindu; begin procedure handle_pointer_motion(x, y); integer x, y; stopp_knapp.PlaceAt(x + 10, y + 10); procedure handle_button_down(b); integer b; begin pointer_motion_desensitize; Clear end; ref(Button) stopp_knapp; SetSize(300, 150); stopp_knapp :- MakeButton("Stopp"); SetBackGround("gray25"); Show; DrawCenterText("Fang stopp-knappen!"); pointer_motion_sensitize; button_sensitize; stopp_knapp.Wait; end; new MuseVindu(" Muse-demo "); end;