home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.browser.aweb < prev    next >
Encoding:
Text File  |  2000-03-14  |  1.2 KB  |  61 lines
  1. G4C
  2. ; $VER: menu.browser.aweb Rev.001 © by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 100 125 "Browser Fenster"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. ;=== Abbruch Button
  13. XButton 0 0 100 15 "Abbrechen [_X]"
  14.     GadFont xHelvetica.font 11 010
  15.     GadKey "x"
  16.     GuiQuit #This
  17.  
  18. XButton 0 15 100 15 "Normal"
  19.     GadFont xHelvetica.font 11 000
  20.     GuiClose #This
  21.     CLI 'rx $*BROWSER WINSET'
  22.     GuiQuit #This
  23.  
  24. XButton 0 30 100 15 "640x480"
  25.     GadFont xHelvetica.font 11 000
  26.     GuiClose #This
  27.     CLI 'rx $*BROWSER WIN640480'
  28.     GuiQuit #This
  29.  
  30. XButton 0 45 100 15 "800x600"
  31.     GadFont xHelvetica.font 11 000
  32.     GuiClose #This
  33.     CLI 'rx $*BROWSER WIN800600'
  34.     GuiQuit #This
  35.  
  36. XButton 0 60 100 15 "1024x768"
  37.     GadFont xHelvetica.font 11 000
  38.     GuiClose #This
  39.     CLI 'rx $*BROWSER WIN1024768'
  40.     GuiQuit #This
  41.  
  42. XButton 0 75 100 15 "Voll"
  43.     GadFont xHelvetica.font 11 000
  44.     GuiClose #This
  45.     CLI 'rx $*BROWSER WINFULL'
  46.     GuiQuit #This
  47.  
  48. XButton 0 95 100 15 "Navi. Ein"
  49.     GadFont xHelvetica.font 11 000
  50.     GuiClose #This
  51.     CLI 'rx $*BROWSER WINBUTON'
  52.     GuiQuit #This
  53.  
  54. XButton 0 110 100 15 "Navi. Aus"
  55.     GadFont xHelvetica.font 11 000
  56.     GuiClose #This
  57.     CLI 'rx $*BROWSER WINBUTOFF'
  58.     GuiQuit #This
  59.  
  60.  
  61.