begin external class windowtools; inspect new basicwindow("Hi") do begin REF (DirectoryMenu) menu; Text filename; menu :- NEW directorymenu(THIS XWindow,NOTEXT); menu.setsize(400,300); menu.placecentered; menu.show; filename :- menu.Waitmenu; outtext(filename); outimage; end; end