home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / LISTWDGT < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.2 KB  |  38 lines
  1. 10    ! *******************************************************
  2. 20    ! Example: LIST Widget
  3. 30    !
  4. 40    ! This program creates a LIST widget with a defined
  5. 50    ! list of animals. When the user selects an animal's
  6. 60    ! name, an INFORMATION dialog appears that displays
  7. 70    ! the name of the animal selected.
  8. 80    !
  9. 90    ! *******************************************************
  10. 100   !
  11. 110  DIM L$(1:5)[26]
  12. 120  INTEGER N
  13. 130   !
  14. 140  DATA "  Aardvark","  Sidewinder","  Kiwi","  Pangolin","  Marmoset"
  15. 150  READ L$(*)
  16. 160   !
  17. 170  ASSIGN @List TO WIDGET "LIST";SET ("SYSTEM MENU":"Quit")
  18. 180  CONTROL @List;SET ("X":100,"Y":50,"WIDTH":400,"BACKGROUND":1)
  19. 190  CONTROL @List;SET ("TITLE":" Example: LIST Widget - Select Your Favorite Animal")
  20. 200  CONTROL @List;SET ("ITEMS":L$(*))
  21. 210   !
  22. 220  ON EVENT @List,"SELECTION" GOSUB Handler
  23. 230  ON EVENT @List,"SYSTEM MENU" GOTO Finis
  24. 240   !
  25. 250  LOOP
  26. 260      WAIT FOR EVENT
  27. 270  END LOOP
  28. 280  STOP
  29. 290   !
  30. 300 Handler: !
  31. 310  STATUS @List;RETURN ("SELECTION":Sel)
  32. 320  DIALOG "INFORMATION",L$(Sel+1);SET ("TITLE":" Animal Selected")
  33. 330  RETURN
  34. 340   !
  35. 350 Finis: !
  36. 360  ASSIGN @List TO *     ! Delete LIST widget
  37. 370  END
  38.