10 ! *********************************************************************
20 ! Example: FILE Widget
30 !
40 ! This program generates a FILE widget.
50 !
60 ! *************************************************
70 !
80 ASSIGN @File TO WIDGET "FILE";SET ("VISIBLE":0)
90 CONTROL @File;SET ("TITLE":" Example: FILE Widget")
100 CONTROL @File;SET ("DIRECTORY":"C:/DOC","PATTERN":"*.TXT")
110 CONTROL @File;SET ("SYSTEM MENU":"Quit")
120 CONTROL @File;SET ("X":100,"Y":50,"VISIBLE":1)
130 ON EVENT @File,"SELECTION" GOSUB Get_selection
140 ON EVENT @File,"SYSTEM MENU" GOTO Finis
150 LOOP
160 WAIT FOR EVENT
170 END LOOP
180 Get_selection: DIM File_name$[256]
190 STATUS @File;RETURN ("SELECTION":File_name$)
200 DISP File_name$
210 RETURN
220 Finis: END