home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / misc / selector43.lha / Selector / gap.sel < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.4 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"' update
  26. Button "gap 1" 'setenv command "gap 1"' update
  27. Button "gap 2" 'setenv command "gap 2"' update
  28. Button "gap 3" 'setenv command "gap 3"' update
  29. Button "gap 4" 'setenv command "gap 4"' update
  30. Button "gap 5" 'setenv command "gap 5"' update
  31. Button "gap 6" 'setenv command "gap 6"' update
  32. Button "gap 7" 'setenv command "gap 7"' update
  33. Button "gap 8" 'setenv command "gap 8"' update
  34. Button "gap 9" 'setenv command "gap 9"' update
  35. Button "gap 10" 'setenv command "gap 10"' update
  36. Button "gap 11" 'setenv command "gap 11"' update
  37. Button "gap 12" 'setenv command "gap 12"' update
  38. Button "gap 13" 'setenv command "gap 13"' update
  39. Button "gap 14" 'setenv command "gap 14"' update
  40. Button "gap 15" 'setenv command "gap 15"' update
  41. Button "gap 16" 'setenv command "gap 16"' update
  42. Button "gap 17" 'setenv command "gap 17"' update
  43. Button "Size 20" 'setenv command "Size 20"' update
  44.  
  45. color 2
  46. button exit 'unsetenv command' exit
  47.