external class dessin; dessiner begin sidewindow class panel; begin ref(button) OkButton; ref(menubutton) Depart, arrivee; text T; OkButton :- makebutton("OK"); depart :- new menubutton(This panel, "Depart"); arrivee:- new menubutton(This panel, "Destination"); T :- "/Montreal/Calgary/Vancouver/"; depart.SetMenu(T); arrivee.SetMenu(T); OkButton.show; depart.Show; Arrivee.Show; end; inspect new panel("Vol") do begin show; OKbutton.wait; end; end;