begin external class WindowTools; inspect new SimpleWindow(" Hi !! ") do begin ref(BoolItemWindow) BW; text ordre; Boolean avsluttet; MakeButton("Hello"); MakeButton("EXIT"); BW :- new BoolItemWindow(this SimpleWindow).PlaceUpRight.Show; while not avsluttet do begin BW.putBool(not BW.getBool); ordre :- ButtonChoice; if ordre = "Hello" then OutLine("Bonjour les amis!") else if ordre = "EXIT" then avsluttet := true; end while; end inspect; end