home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / examples / rows.sel < prev    next >
Encoding:
Text File  |  1999-03-04  |  1.2 KB  |  49 lines
  1. ; Demo of the "rows" command
  2. ; and the use of env variables
  3.  
  4.  
  5.  
  6. close off
  7.  
  8. defenv rows 7
  9. rows [rows]
  10. title "This is [rows] rows..."
  11.  
  12. color 2
  13. startbox
  14.     text "This demo"
  15.     text "shows the"
  16.     text "use of"
  17.     text "the rows"
  18.     text command
  19.     text "and env"
  20.     text variables
  21. endbox
  22.  
  23. color 3
  24. startbox
  25.     button Info 'run >nil: Selector rowsinfo.sel'
  26. endbox
  27. color 1
  28. Button "rows 1" 'setenv rows 1' load [this]
  29. Button "rows 2" 'setenv rows 2' load [this]
  30. Button "rows 3" 'setenv rows 3' load [this]
  31. Button "rows 4" 'setenv rows 4' load [this]
  32. Button "rows 5" 'setenv rows 5' load [this]
  33. Button "rows 6" 'setenv rows 6' load [this]
  34. Button "rows 7" 'setenv rows 7' load [this]
  35. Button "rows 8" 'setenv rows 8' load [this]
  36. Button "rows 9" 'setenv rows 9' load [this]
  37. Button "rows 10" 'setenv rows 10' load [this]
  38. Button "rows 11" 'setenv rows 11' load [this]
  39. Button "rows 12" 'setenv rows 12' load [this]
  40. Button "rows 13" 'setenv rows 13' load [this]
  41. Button "rows 14" 'setenv rows 14' load [this]
  42. Button "rows 15" 'setenv rows 15' load [this]
  43. Button "rows 16" 'setenv rows 16' load [this]
  44. Button "rows 17" 'setenv rows 17' load [this]
  45. Button "rows 200" 'setenv rows 200' load [this]
  46. Button "rows auto" 'setenv rows auto' load [this]
  47. color 2
  48. button exit 'unsetenv rows' exit
  49.