home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / examples / gap.sel < prev    next >
Encoding:
Text File  |  1999-03-04  |  1.5 KB  |  47 lines
  1. ; The GAP command specifies how many pixels of
  2. ; space there will be between every button.
  3.  
  4.  
  5. close off
  6. defenv command "gap 3"   ; The env variable "command" will be set to
  7.                          ; "gap 3" if it is not currently set
  8.  
  9. [command]    ;Here the command is placed
  10.  
  11. title "Command: [command]"
  12. color 2
  13. startbox
  14.     text "Gap, and"
  15.     text "replacable"
  16.     text "commands"
  17.     text "using env"
  18. endbox
  19.  
  20. color 3
  21. startbox
  22.     button Source 'run >nil: multiview "[this]"'
  23. endbox
  24. color 1
  25. Button "gap 0" 'setenv command "gap 0"' load [this]
  26. Button "gap 1" 'setenv command "gap 1"' load [this]
  27. Button "gap 2" 'setenv command "gap 2"' load [this]
  28. Button "gap 3" 'setenv command "gap 3"' load [this]
  29. Button "gap 4" 'setenv command "gap 4"' load [this]
  30. Button "gap 5" 'setenv command "gap 5"' load [this]
  31. Button "gap 6" 'setenv command "gap 6"' load [this]
  32. Button "gap 7" 'setenv command "gap 7"' load [this]
  33. Button "gap 8" 'setenv command "gap 8"' load [this]
  34. Button "gap 9" 'setenv command "gap 9"' load [this]
  35. Button "gap 10" 'setenv command "gap 10"' load [this]
  36. Button "gap 11" 'setenv command "gap 11"' load [this]
  37. Button "gap 12" 'setenv command "gap 12"' load [this]
  38. Button "gap 13" 'setenv command "gap 13"' load [this]
  39. Button "gap 14" 'setenv command "gap 14"' load [this]
  40. Button "gap 15" 'setenv command "gap 15"' load [this]
  41. Button "gap 16" 'setenv command "gap 16"' load [this]
  42. Button "gap 17" 'setenv command "gap 17"' load [this]
  43. Button "Size 20" 'setenv command "Size 20"' load [this]
  44.  
  45. color 2
  46. button exit 'unsetenv command' exit
  47.