HTBasic Help
×
Menu
Index

Example: Label Widget

 
10     ! *********************************************************************
20     ! Example: LABEL Widget
30     !
40     ! This program generates a LABEL widget.
50     !
60     ! ********************************************************
70     !
80     INTEGER N
90     DIM S$[256]
100   ASSIGN @L TO WIDGET "LABEL";SET ("VISIBLE":0)
110   CONTROL @L;SET ("COLUMNS":28,"ROWS":8,"TITLE":" Example: LABEL Widget")
120   CONTROL @L;SET ("X":100,"Y":50,"JUSTIFICATION":"TOP,LEFT","WORD WRAP":1)
130   CONTROL @L;SET ("SYSTEM MENU":"Quit")
140    !
150   FOR N=1 TO 8
160     S$=S$&" ITEM "&VAL$(N)&": VALUE "&VAL$(N)&" "
170     IF N<8 THEN S$=S$&CHR$(10)
180   NEXT N
190   CONTROL @L;SET ("VALUE":S$,"VISIBLE":1)
200   ON EVENT @L,"SYSTEM MENU" GOTO Finis
210   LOOP
220     WAIT FOR EVENT
230   END LOOP
240   !
250 Finis: !
260   ASSIGN @L TO *    ! Deletes LABEL widget
270   END