HTBasic Help
×
Menu
Index

Example: File Widget

 
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