begin external class WindowTools; FirstWindow class MyWnd; begin ref(Button) Ok; procedure DoubleClick_Handler(Wnd); ref(XWindow) Wnd; outline("It's a double, bartender!"); outLine( getFile("Enter file","")); outimage; outLine( getDirectory("Enter direct","")); outimage; outLine( getFile("Get new file","Harry","")); outimage; end; new MyWnd("1st"); end;