home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / setup < prev    next >
Encoding:
Text File  |  2000-02-03  |  8.1 KB  |  348 lines
  1. G4C
  2. ; $VER: Setup Rev.005 © by Juan Manuel Wehrli 2000
  3. TEXTFILE t:hxt_dmmy
  4. -
  5. ###
  6. TEXTFILE htmlext:Settings/_defs/HTMLEXTStarter
  7. ; $VER: HTMLEXTStarter V 003 by Juan Manuel Wehrli 1999 - 2000
  8. ; HTMLEXT ist eine HTML Projekt-Verwaltungs-Erweiterung zu GoldED V6 & Webworld
  9. ; Alle Rechte liegen bei Juan Manuel Wehrli 1999/2000
  10. assign HTMLEXT: ""
  11. rx htmlext:mod/htmlext.smod START
  12.  
  13. ###
  14. TEXTFILE htmlext:Settings/_defs/Libtag.txt
  15.  
  16.   === Neuer HTMLLIB Eintrag ===
  17.  
  18. ###
  19. TEXTFILE htmlext:Settings/_defs/Rapport.txt
  20. HomePage Rapport
  21. Ausgeführt durch:
  22. ====================================================
  23.  
  24. 01.01.2000    09.30 - 24.00 Uhr    100 min
  25. Rapport Demo Eintrag ...
  26.  
  27.  
  28. ###
  29. TEXTFILE htmlext:Settings/_defs/MRep.prefs
  30. GCDB
  31. 0
  32. 2
  33. %OLDSTRING 45 S
  34. %NEWSTRING 45 S
  35. ###
  36. TEXTFILE htmlext:Settings/_defs/Action.prefs
  37. GCDB
  38. 0
  39. 2
  40. %Name 45 S
  41. %Befehl 75 S
  42. ###
  43. TEXTFILE htmlext:Settings/_defs/Users.prefs
  44. GCDB
  45. 0
  46. 4
  47. %UserLogin 5 S
  48. %UserName 75 S
  49. %UserAdr 75 S
  50. %UserMail 75 S
  51. ###
  52. TEXTFILE htmlext:Settings/_defs/HTMLEXT.prefs
  53. GCDB
  54. 0
  55. 11
  56. %Screen 45 S
  57. %ScreenOpt 45 S
  58. %Browser 55 S
  59. %Editor 55 S
  60. %Mailer 55 S
  61. %Tcp 55 S
  62. %TcpIf 55 S
  63. %Os 5 S
  64. %Admin 5 S
  65. %User 55 S
  66. %Winbg 75 S
  67. ###
  68. TEXTFILE htmlext:Settings/_defs/Proj.prefs
  69. GCDB
  70. 0
  71. 2
  72. %DirName 35 S
  73. %DirPath 70 S
  74. ###
  75. TEXTFILE htmlext:Settings/_defs/Projdata.prefs
  76. GCDB
  77. 0
  78. 2
  79. %DirName 35 S
  80. %DirPath 70 S
  81. ###
  82. TEXTFILE htmlext:Settings/_defs/Suites.prefs
  83. GCDB
  84. 0
  85. 17
  86. %SuiteName 35 S
  87. %SuitePath 70 S
  88. %SuiteSpiegelDir 50 S
  89. %SuiteFTPOL 50 S
  90. %SuiteFTPWRK 50 S
  91. %SuiteURLOL 50 S
  92. %SuiteURLWRK 50 S
  93. %SuiteDfue 5 S
  94. %SuiteServTyp 5 S
  95. %SuiteSpiegelStat 5 S
  96. %SuiteMail 50 S
  97. %SuiteSubj 50 S
  98. %SuiteHistFile 50 S
  99. %SuiteHistAuto 5 S
  100. %SuiteBakArcDir 50 S
  101. %SuiteDataPath 70 S
  102. %SuiteDataMirror 70 S
  103. ###
  104. WINBIG -1 -1 200 100 "HTMLEXT 2 Setup"
  105. WinType 11010000
  106. Winout "CON:0/18/600/100/HTMLEXT2 Output/AUTO/CLOSE/SCREEN$*SCREEN"
  107. WinBackground IMAGE BG 0
  108. Winout "NIL:"
  109.  
  110. xONLOAD
  111.     cli 'multiview "htmlext:help/Setup.txt"'
  112.     SetGad #This 1 HIDE
  113.     SetGad #This 3 HIDE
  114.     SetGad #This 6 HIDE
  115.     SetGad #This 99 HIDE
  116.     LoadImage "htmlext:gui/bg/bg.01" BG Workbench
  117.     Set LVFILL OFF
  118.     guiopen #This
  119.  
  120. xOnClose
  121.     guiquit #This
  122.  
  123. Gauge 5 80 190 15 IN BUTTON 2 1 0
  124.     gadid 99
  125.  
  126. XLISTVIEW 0 0 200 50 "" setupdb "" 0 SHOW
  127.     gadid 1
  128.  
  129. Text 5 0 190 18 "Willkommen beim" 100 NOBOX
  130.     GadFont xHelvetica.font 13 010
  131.     gadid 4
  132.  
  133. Text 5 20 190 18 "        HTMLEXT 2 Setup" 100 NOBOX
  134.     GadFont xHelvetica.font 11 000
  135.     gadid 5
  136.  
  137. XBUTTON 5 80 190 18 "_Starten"
  138.     GadID 2
  139.     gadkey "s"
  140.     SetGad #This 2 HIDE
  141.     SetGad #This 99 SHOW
  142.     Redraw #This
  143.     Update #This 99 "10"
  144.     Update #This 4 "Abfragen der ..."
  145.     Update #This 5 "Benutzer Verwaltungs Daten"
  146.     lvuse #This 1
  147.     lvchange "htmlext:Settings/_defs/Users.prefs"
  148.  
  149.     Update #This 99 "20"
  150.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  151.     SetVar .htmlext.rqb "Bitte geben Sie ihren Kürzel ein wie ... (bis 4 Zeichen)"    ;Body
  152.     SetVar .htmlext.rqd "jh"                                                ;Default
  153.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  154.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  155.     setvar userlogin $.htmlext.tmp
  156.     
  157.     Update #This 99 "30"
  158.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  159.     SetVar .htmlext.rqb "Nun Ihr Name wie ..."    ;Body
  160.     SetVar .htmlext.rqd "John Holdenstein"                                              ;Default
  161.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  162.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  163.     setvar username $.htmlext.tmp
  164.  
  165.     Update #This 99 "40"
  166.     SetVar .htmlext.rqt "Benutzerdaten ..."              ;Titel
  167.     SetVar .htmlext.rqb "Nun Ihre Adresse wie ..."        ;Body
  168.     SetVar .htmlext.rqd "Autobahn N1, 8000 Zürich"        ;Default
  169.     SetVar .htmlext.rqu "Weiter|Abbrechen"                ;Buttons
  170.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  171.     setvar useradr $.htmlext.tmp
  172.  
  173.     Update #This 99 "50"
  174.     SetVar .htmlext.rqt "Benutzerdaten ..."                           ;Titel
  175.     SetVar .htmlext.rqb "Nun Ihre EMail Adresse wie ..."    ;Body
  176.     SetVar .htmlext.rqd "jh@welt.com"                                                 ;Default
  177.     SetVar .htmlext.rqu "Weiter|Abbrechen"                                ;Buttons
  178.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  179.     setvar usermail $.htmlext.tmp
  180.  
  181.     if $.htmlext.res = 1
  182.         lvuse #This 1
  183.         lvadd ''
  184.         %UserLogin = $userlogin
  185.         %UserName  = $username
  186.         %UserMail  = $usermail
  187.         %UserAdr   = $useradr
  188.         lvsort %UserName
  189.         lvsave "htmlext:settings/_defs/Users.prefs"
  190.     else
  191.         guiquit #This
  192.     endif
  193.  
  194.     Update #This 99 "60"
  195.     Update #This 4 "Erstelle Grundeinstellungen ..."
  196.     Update #This 5 "HTMLEXT Einstellungen setzten"
  197.     lvuse #This 1
  198.     lvclear
  199.     lvchange "htmlext:settings/_defs/HTMLEXT.prefs"
  200.     lvadd ''
  201.     %Admin = "1"
  202.     %User = $userlogin
  203.     %Winbg = "htmlext:gui/bg/bg.01"
  204.     %Screen = "HTMLEXT"
  205.     %ScreenOpt = "16"
  206.     %Browser = "htmlext:mod/browser/aweb.mod"
  207.     %Editor = "htmlext:mod/editor/golded.mod"
  208.     %Mailer = "htmlext:mod/mailer/yam.mod"
  209.     %Tcp = "htmlext:mod/network/miami.mod"
  210.     %TcpIf = ""
  211.     %Os = "35"
  212.     lvsort %User
  213.     lvsave "htmlext:settings/_defs/HTMLEXT.prefs"
  214.  
  215.     Update #This 99 "70"
  216.     Update #This 5 "Suite Markierungs Daten ..."
  217.     lvuse #This 1
  218.     lvclear
  219.     lvchange "htmlext:settings/_defs/Proj.prefs"
  220.     lvadd ''
  221.     %DirName = "Suite"
  222.     %DirPath = ""
  223.     lvsort %DirName
  224.     lvsave "htmlext:settings/_defs/Proj.prefs"
  225.  
  226.     Update #This 99 "75"
  227.     Update #This 5 "Projektdaten Markierungs Daten ..."
  228.     lvuse #This 1
  229.     lvclear
  230.     lvchange "htmlext:settings/_defs/Projdata.prefs"
  231.     lvadd ''
  232.     %DirName = "Projektdaten"
  233.     %DirPath = ""
  234.     lvsort %DirName
  235.     lvsave "htmlext:settings/_defs/Projdata.prefs"
  236.  
  237.     Update #This 99 "80"
  238.     Update #This 5 "Bearbeitungs Funktionen ..."
  239.     lvuse #This 1
  240.     lvclear
  241.     lvchange "htmlext:settings/_defs/Action.prefs"
  242.     lvadd ''
  243.     %Name = "B AWeb"
  244.     %Befehl = "rx htmlext:mod/browser/aweb.mod OPEN"
  245.  
  246.     lvadd ''
  247.     %Name = "V CyberShow"
  248.     %Befehl = "rx htmlext:mod/viewer/CyberShow.mod HTMLEXT"
  249.  
  250.     lvadd ''
  251.     %Name = "V Multiview"
  252.     %Befehl = "multiview"
  253.  
  254.     lvadd ''
  255.     %Name = "G ArtEffect"
  256.     %Befehl = "rx htmlext:mod/addon/arteffect.mod OPENNEW"
  257.  
  258.     lvadd ''
  259.     %Name = "G ImageEngineer"
  260.     %Befehl = "rx htmlext:mod/addon/imageengineer.mod OPENNEW"
  261.  
  262.     lvadd ''
  263.     %Name = "G ImageFX"
  264.     %Befehl = "rx htmlext:mod/addon/imagefx.mod OPENNEW"
  265.  
  266.     lvadd ''
  267.     %Name = "G ImageMAP"
  268.     %Befehl = "htmlext:Programme/ImageMap/ImageMap"
  269.  
  270.     lvadd ''
  271.     %Name = "G Photogenics2"
  272.     %Befehl = "rx htmlext:mod/addon/photogenics2.mod OPENNEW"
  273.  
  274.     lvadd ''
  275.     %Name = "G PPaint"
  276.     %Befehl = "rx htmlext:mod/addon/ppaint.mod OPENNEW"
  277.  
  278.     lvadd ''
  279.     %Name = "W AWeb"
  280.     %Befehl = "rx htmlext:mod/browser/aweb.mod OPEN"
  281.  
  282.     lvadd ''
  283.     %Name = "W IBrowse"
  284.     %Befehl = "rx htmlext:mod/browser/IBrowse.mod OPEN"
  285.  
  286.     lvadd ''
  287.     %Name = "W Voyager"
  288.     %Befehl = "rx htmlext:mod/browser/Voyager.mod OPEN"
  289.  
  290.     lvsort %Name
  291.     lvsave "htmlext:settings/_defs/Action.prefs"
  292.     lvclear
  293.     lvchange "t:hxt_dummy"
  294.  
  295.     Update #This 99 "90"
  296.     ifexists file "htmlext:settings/htmlext.prefs"
  297.         ;Nichts
  298.     else
  299.         Update #This 5 "Kopiere Htmlext.prefs ..."
  300.         cli 'copy htmlext:settings/_defs/HTMLEXT.prefs to htmlext:settings/htmlext.prefs'
  301.     endif
  302.  
  303.     Update #This 99 "92"
  304.     ifexists file "htmlext:settings/Users.prefs"
  305.         ;Nichts
  306.     else
  307.         Update #This 5 "Kopiere Users.prefs ..."
  308.         cli 'copy htmlext:settings/_defs/USERS.prefs to htmlext:settings/users.prefs'
  309.     endif
  310.  
  311.     Update #This 99 "94"
  312.     ifexists file "htmlext:settings/Action.prefs"
  313.         ;Nichts
  314.     else
  315.         Update #This 5 "Kopiere Action.prefs ..."
  316.         cli 'copy htmlext:settings/_defs/Action.prefs to htmlext:settings/action.prefs'
  317.     endif
  318.  
  319.     Update #This 99 "96"
  320.     ifexists file "htmlext:HTMLEXT.info"
  321.         ;Nichts
  322.     else
  323.         Update #This 5 "Kopiere HTMLEXT Icon ..."
  324.         cli 'copy htmlext:settings/_defs/HTMLEXTStarter.info to htmlext:HTMLEXT.info'
  325.     endif
  326.  
  327.     Update #This 99 "98"
  328.     ifexists file "htmlext:HTMLEXT"
  329.         ;Nichts
  330.     else
  331.         Update #This 5 "Kopiere HTMLEXT Starter ..."
  332.         cli 'copy htmlext:settings/_defs/HTMLEXTStarter to htmlext:HTMLEXT'
  333.     endif
  334.     cli 'wait 1'
  335.  
  336.     Update #This 99 "100"
  337.     Update #This 4 "Setup erfolgreich beendet."
  338.     Update #This 5 "Bitte akt. Sie den WB Fensterinhalt!"
  339.     SetGad #This 3 SHOW
  340.     Redraw #This
  341.  
  342. XBUTTON 5 80 190 18 "B_eenden"
  343.     GadFont xHelvetica.font 13 000
  344.     gadkey "e"
  345.     GadID 3
  346.     GuiQuit #This
  347.  
  348.