home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / htmlextprefs < prev    next >
Encoding:
Text File  |  2000-02-03  |  5.1 KB  |  183 lines
  1. G4C
  2. ; $VER: HTMLEXTPrefs Rev.013 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 400 240 "HTMLEXT Einstellungen"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7.  
  8. xOnLoad
  9.     lvuse HTMLEXT 101
  10.  
  11.     EXTRACT %Screen CLEAN screen
  12.     Update #This 1 $screen
  13.  
  14.     EXTRACT %Browser CLEAN browser
  15.     Update #This 2 $browser
  16.  
  17.     EXTRACT %Editor CLEAN editor
  18.     Update #This 3 $editor
  19.  
  20.     EXTRACT %Mailer CLEAN mailer
  21.     Update #This 4 $mailer
  22.  
  23.     EXTRACT %Winbg CLEAN bg
  24.     Update #This 5 $bg
  25.  
  26.     EXTRACT %Tcp CLEAN tcp
  27.     Update #This 6 $tcp
  28.  
  29.     EXTRACT %TcpIf CLEAN tcpif
  30.     Update #This 7 $tcpif
  31.  
  32.     EXTRACT %Os CLEAN pos
  33.     if $pos = "35"
  34.         Update #This 8 "1"
  35.         SetVar os "35"
  36.     else
  37.         Update #This 8 "0"
  38.         SetVar os "31"
  39.     endif
  40.  
  41.     EXTRACT %User CLEAN user
  42.     Update #This 9 $user
  43.  
  44.     EXTRACT %ScreenOpt CLEAN screenopt
  45.     Update #This 11 $screenopt
  46.  
  47.     EXTRACT %Admin CLEAN padmin
  48.     if $padmin = "1"
  49.         Update #This 10 "1"
  50.         SetVar admin "1"
  51.     else
  52.         Update #This 10 "0"
  53.         SetVar admin "0"
  54.     endif
  55.  
  56.     EXTRACT %ScreenOpt CLEAN screenopt
  57.     Update #This 11 $screenopt
  58.     GuiOpen #This
  59.  
  60. xOnClose
  61.     GuiWindow HTMLEXT RESUME
  62.     GuiWindow menu.suites RESUME
  63.     GuiWindow #This RESUME
  64.  
  65. Text 102 2 290 15 "(Vorgabe: HTMLEXT, andere Namen bitte nur eintragen, wenn diese auch" 80 NOBOX
  66.     GadFont xHelvetica.font 9 000
  67. Text 102 10 290 15 "existieren! Die Optionen gelten nur bei HTMLEXT als Screen!" 60 NOBOX
  68.     GadFont xHelvetica.font 9 000
  69.  
  70. xTextIn 100 25 80 18 "PubScreen Name:" screen "" 155
  71.     GadID 1
  72.     GadFont "xHelvetica.font" "11" 000
  73.     GadHelp "Die Optionen sind nur gültig, wenn HTMLEXT als Screenname gewählt wird!"
  74.  
  75. xTextIn 245 25 125 18 "Optionen:" screenopt "" 155
  76.     GadID 11
  77.     GadFont "xHelvetica.font" "11" 000
  78.     GadHelp "Optionen sind: Entweder DEPTH wie 16, oder WIDTH/HEIGHT/DEPTH/HexMode"
  79. xButton 372 25 18 18 "»"
  80.     GadFont "xHelvetica.font" "11" 000
  81.     CLI 'rx htmlext:mod/htmlext.smod GETSCRMODE'
  82.     Update #This 11 $.htmlext.tmp
  83.  
  84. xTextIn 100 45 272 18 "Browser Plugin:" browser "" 155
  85.     GadID 2
  86.     GadFont "xHelvetica.font" "11" 000
  87. xButton 372 45 18 18 "»"
  88.     GadFont "xHelvetica.font" "11" 000
  89.     ReqFile -1 -1 250 500 "Bitte Browser Plugin wählen ..." FILE browser "HTMLEXT:mod/Browser/"
  90.     Update #This 2 $browser
  91.  
  92. xTextIn 100 65 272 18 "Editor Plugin:" editor "" 155
  93.     GadID 3
  94.     GadFont "xHelvetica.font" "11" 000
  95. xButton 372 65 18 18 "»"
  96.     GadFont "xHelvetica.font" "11" 000
  97.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE editor "HTMLEXT:mod/Editor/"
  98.     Update #This 3 $editor
  99.  
  100. xTextIn 100 85 272 18 "E-Mailer Plugin:" mailer "" 155
  101.     GadID 4
  102.     GadFont "xHelvetica.font" "11" 000
  103. xButton 372 85 18 18 "»"
  104.     GadFont "xHelvetica.font" "11" 000
  105.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE mailer "HTMLEXT:mod/Mailer/"
  106.     Update #This 4 $mailer
  107.  
  108. xTextIn 100 105 272 18 "TCP/IP Plugin:" tcp "" 155
  109.     GadID 6
  110.     GadFont "xHelvetica.font" "11" 000
  111. xButton 372 105 18 18 "»"
  112.     GadFont "xHelvetica.font" "11" 000
  113.     ReqFile -1 -1 250 500 "Bitte Editor Plugin wählen ..." FILE tcp "HTMLEXT:mod/Network/"
  114.     Update #This 6 $tcp
  115.  
  116. xTextIn 100 125 100 18 "Interface Name:" tcpif "" 155
  117.     GadID 7
  118.     GadFont "xHelvetica.font" "11" 000
  119.     GadHelp "Interfacenamen muss angegeben werden, falls MiamiDX benutzt wird ..."
  120.  
  121. xTextIn 100 150 180 18 "Benutzer:" user "" 155
  122.     GadHelp "Bitte leer lassen, falls der MultiUser Modus aktiviert sein soll!"
  123.     GadID 9
  124.     GadFont "xHelvetica.font" "11" 000
  125.  
  126. xCheckbox 372 150 18 18 "AmigaOS 3.5+" os "35" "31" OFF
  127.     GadHelp "Anwählen, wenn Ihr Amiga mit AmigaOS 3.5 oder besser ausgerüstet ist ..."
  128.     GadID 8
  129.     GadFont "xHelvetica.font" "11" 000
  130.  
  131. xTextIn 100 175 272 18 "Win. Background:" bg "" 155
  132.     GadID 5
  133.     GadFont "xHelvetica.font" "11" 000
  134. xButton 372 175 18 18 "»"
  135.     GadFont "xHelvetica.font" "11" 000
  136.     ReqFile -1 -1 250 500 "Bitte Fensterhintergrund wählen ..." FILE bg "HTMLEXT:gui/bg/"
  137.     Update #This 5 $bg
  138.  
  139. xCheckbox 100 210 18 18 "Immer Admin M." admin "1" "0" OFF
  140.     GadHelp "Anwählen, wenn der Admin Modus immer aktiv sein soll ..."
  141.     GadID 10
  142.     GadFont "xHelvetica.font" "11" 000
  143.     SetVar *ADMIN $admin
  144.  
  145. xButton 185 210 100 20 "_1 Speichern"
  146.     GadFont "xHelvetica.font" "11" 000
  147.     GadKey "s"
  148.     lvuse HTMLEXT 101
  149.     lvdel -1
  150.     lvadd ''
  151.     %Screen = $screen
  152.     %ScreenOpt = $screenopt
  153.     %Browser = $browser
  154.     %Editor = $editor
  155.     %Mailer = $mailer
  156.     %Winbg = $bg
  157.     %Tcp = $tcp
  158.     %TcpIf = $tcpif
  159.     %Os = $os
  160.     %Admin = $admin
  161.     %User = $user
  162.     lvsave "htmlext:Settings/htmlext.prefs"
  163.     EXTRACT screen CLEAN *SCREEN
  164.     EXTRACT browser CLEAN *BROWSER
  165.     EXTRACT editor CLEAN *EDITOR
  166.     EXTRACT mailer CLEAN *MAILER
  167.     EXTRACT viewer CLEAN *VIEWER
  168.     EXTRACT tcp CLEAN *TCP
  169.     EXTRACT tcpif CLEAN *TCPIF
  170.     EXTRACT os CLEAN *OS
  171.     EXTRACT screenopt CLEAN *SCREENOPT
  172.     GuiWindow HTMLEXT RESUME
  173.     GuiWindow #This RESUME
  174.     GuiQuit #This
  175.  
  176. xButton 290 210 100 20 "[_X] Abbrechen"
  177.     GadFont "xHelvetica.font" "11" 000
  178.     GadKey "x"
  179.     GuiWindow HTMLEXT RESUME
  180.     GuiWindow #This RESUME
  181.     GuiQuit #This
  182.  
  183.