home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Basic_Plus_Examples / STRGWDGT < prev    next >
Encoding:
Text File  |  2005-03-02  |  1.3 KB  |  37 lines
  1. 10    ! ********************************************
  2. 20    ! Example: STRING Widget
  3. 30    !
  4. 40    ! This program generates a STRING widget and
  5. 50    ! allows the user to enter text from the keyboard.
  6. 60    ! The text entered by the user is displayed after
  7. 70    ! the Enter key is pressed. To exit the program,
  8. 80    ! type QUIT and press Enter OR click the PANEL icon
  9. 90    ! and then click Quit.
  10. 100   !
  11. 110   ! ********************************************
  12. 120   !
  13. 130       CLEAR SCREEN
  14. 140       DIM S$[255]
  15. 150       ASSIGN @String TO WIDGET "STRING"
  16. 160       CONTROL @String;SET ("TITLE":" Example: STRING Widget")
  17. 170       CONTROL @String;SET ("X":100,"Y":100,"COLUMNS":30)
  18. 180       CONTROL @String;SET ("VALUE":"Enter text here")
  19. 190       CONTROL @String;SET ("SYSTEM MENU":"Quit")
  20. 200   !
  21. 210       ON EVENT @String,"RETURN" GOSUB Handler
  22. 220       ON EVENT @String,"SYSTEM MENU" GOTO Finis
  23. 230   !
  24. 240       LOOP
  25. 250           WAIT FOR EVENT
  26. 260       END LOOP
  27. 270   !
  28. 280  Handler:!
  29. 290       STATUS @String;RETURN ("VALUE":S$)
  30. 300       CONTROL @String;SET ("VALUE":"")
  31. 310       IF S$="QUIT" THEN Finis
  32. 320       DISP "Text entered:",S$
  33. 330       RETURN
  34. 340  Finis:!
  35. 350       ASSIGN @String TO *! Delete STRING widget
  36. 360       END
  37.