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