home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / time / filofax_pro_v1.2 / hd_install < prev    next >
Encoding:
Text File  |  1996-03-29  |  11.0 KB  |  411 lines
  1. (procedure INSTALL
  2.    (SET Filo_dest
  3.            (askdir
  4.                 (prompt #ziel)
  5.                 (help #ziel_hilfe)
  6.                 (default @default-dest)
  7.            )
  8.    )
  9.  
  10.    (complete 10)
  11.  
  12.    (makedir (tackon Filo_dest "FiloFax") (infos))
  13.    (makedir (tackon Filo_dest "FiloFax/Sounds") (infos))
  14.    (makedir (tackon "SYS:S/" "FiloData"))
  15.  
  16.    (SET Filo_dest (tackon Filo_dest "FiloFax"))
  17.    (SET @default-dest Filo_dest)
  18.  
  19.    (IF (= filo_art 0) (
  20.      (copyfiles
  21.              (source "FiloFax-MUI/")
  22.              (dest Filo_dest) (pattern "#?") (infos)
  23.      )
  24.    ))
  25.  
  26.    (IF (= filo_art 1) (
  27.      (copyfiles
  28.         (source "FiloFax-MUI/")
  29.         (dest Filo_dest) (pattern "#?") (infos)
  30.      )
  31.      (copyfiles
  32.         (source "FiloFax-Normal/FiloCheck")
  33.         (dest Filo_dest) (infos)
  34.      )
  35.    ))
  36.  
  37.    (IF (= filo_art 2) (
  38.      (copyfiles
  39.         (source "FiloFax-Normal/")
  40.         (dest Filo_dest) (pattern "#?") (infos)
  41.      )
  42.    ))
  43.  
  44.    (complete 55)
  45.  
  46.    (copyfiles
  47.      (source "FiloFax.guide")
  48.      (dest Filo_dest) (infos)
  49.    )
  50.  
  51.    (copyfiles
  52.      (source "Sounds/")
  53.      (dest (tackon Filo_dest "Sounds")) (pattern "#?") (infos)
  54.    )
  55.  
  56.    (copyfiles
  57.             (source "FiloInter")
  58.             (dest   "SYS:S/FiloData/")
  59.    )
  60.  
  61.    (copyfiles
  62.           (source "FiloFax.iv")
  63.           (dest   "SYS:S/FiloData/")
  64.    )
  65.  
  66.    (complete 65)
  67.  
  68.    ((SET icons (askchoice
  69.             (prompt #icon)
  70.              (choices #icon1
  71.                       #icon2
  72.                       #icon3)
  73.             (help "")
  74.             (DEFAULT 0)
  75.          ))
  76.    )
  77.  
  78.    (IF (= icons 0) (
  79.     (copyfiles
  80.         (source "Icons/Standard/FiloFax.info")
  81.         (dest   Filo_dest)
  82.     )
  83.     (copyfiles
  84.         (source "Icons/Standard/FiloCheck.info")
  85.         (dest   Filo_dest)
  86.     )
  87.     (copyfiles
  88.         (source "Icons/Standard/FiloNote.info")
  89.         (dest   Filo_dest)
  90.     )
  91.     (copyfiles
  92.         (source "Icons/Standard/RegiTool.info")
  93.         (dest   Filo_dest)
  94.     )
  95.     (copyfiles
  96.         (source "Icons/Standard/FiloFax.guide.info")
  97.         (dest   Filo_dest)
  98.     )
  99.     (copyfiles
  100.         (source "Icons/Standard/Sounds.info")
  101.         (dest   Filo_dest)
  102.     )
  103.    ))
  104.  
  105.    (IF (= icons 1) (
  106.     (copyfiles
  107.         (source "Icons/MagicWB/FiloFax.info")
  108.         (dest   Filo_dest)
  109.     )
  110.     (copyfiles
  111.         (source "Icons/MagicWB/FiloCheck.info")
  112.         (dest   Filo_dest)
  113.     )
  114.     (copyfiles
  115.         (source "Icons/MagicWB/FiloNote.info")
  116.         (dest   Filo_dest)
  117.     )
  118.     (copyfiles
  119.         (source "Icons/MagicWB/RegiTool.info")
  120.         (dest   Filo_dest)
  121.     )
  122.     (copyfiles
  123.         (source "Icons/MagicWB/FiloFax.guide.info")
  124.         (dest   Filo_dest)
  125.     )
  126.     (copyfiles
  127.         (source "Icons/MagicWB/Sounds.info")
  128.         (dest   Filo_dest)
  129.     )
  130.    ))
  131.  
  132.    (IF (= icons 2) (
  133.     (copyfiles
  134.         (source "Icons/NewIcons/FiloFax.info")
  135.         (dest   Filo_dest)
  136.     )
  137.     (copyfiles
  138.         (source "Icons/NewIcons/FiloCheck.info")
  139.         (dest   Filo_dest)
  140.     )
  141.     (copyfiles
  142.         (source "Icons/NewIcons/FiloNote.info")
  143.         (dest   Filo_dest)
  144.     )
  145.     (copyfiles
  146.         (source "Icons/NewIcons/RegiTool.info")
  147.         (dest   Filo_dest)
  148.     )
  149.     (copyfiles
  150.         (source "Icons/NewIcons/FiloFax.guide.info")
  151.         (dest   Filo_dest)
  152.     )
  153.     (copyfiles
  154.         (source "Icons/NewIcons/Sounds.info")
  155.         (dest   Filo_dest)
  156.     )
  157.    ))
  158.  
  159.  
  160.  
  161.  
  162.  
  163.    (complete 70)
  164.  
  165.           ((SET zusatze (askchoice
  166.                (prompt #zusatz)
  167.                (choices #zusatz_wahl1
  168.                         #zusatz_wahl2)
  169.                (help #zusatz_hilfe)
  170.                (DEFAULT 0)
  171.            ))
  172.        )
  173.  
  174.        (IF (= filo_art 0) (
  175.          (tooltype (dest (tackon Filo_dest "FiloCheck"))
  176.  
  177.          (settooltype "Version" "'v1.2 (Mui)'")
  178.  
  179.          (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  180.          (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  181.          (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  182.          (settooltype "ONLY_ONCE" "0")
  183.          (settooltype "DEFAULT_SOUND" "")
  184.  
  185.          (settooltype "G_NAME1" "Termineinsteller")
  186.          (settooltype "G_NAME2" "Statistik")
  187.          (settooltype "G_NAME3" "Notizbuch")
  188.          (settooltype "G_NAME4" "Termin in x Min")
  189.          (settooltype "G_NAME5" "Zeit-Voreinsteller")
  190.          (settooltype "DONOTWAIT" "1")
  191.        )))
  192.  
  193.        (IF (<> filo_art 0) (
  194.          (tooltype (dest (tackon Filo_dest "FiloCheck"))
  195.  
  196.          (settooltype "Version" "'v1.2 (Normal)'")
  197.  
  198.          (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  199.          (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  200.          (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  201.          (settooltype "ONLY_ONCE" "0")
  202.          (settooltype "DEFAULT_SOUND" "")
  203.          (settooltype "CX_POPUP" "1")
  204.          (settooltype "DockX" "0")
  205.          (settooltype "DockY" "600")
  206.  
  207.          (settooltype "CX_POPUPKEY" "SHIFT CTRL P")
  208.          (settooltype "CX_FAX_KEY" "SHIFT CTRL F")
  209.          (settooltype "CX_KILLKEY" "SHIFT CTRL Q")
  210.          (settooltype "CX_REQKEY" "SHIFT CTRL R")
  211.          (settooltype "CX_STAT_KEY" "SHIFT CTRL S")
  212.          (settooltype "CX_NOTEKEY" "SHIFT CTRL N")
  213.  
  214.          (settooltype "G_NAME1" "Einsteller")
  215.          (settooltype "G_NAME2" "Statistik")
  216.          (settooltype "G_NAME3" "Notizbuch")
  217.          (settooltype "G_NAME4" "Termin")
  218.          (settooltype "G_NAME5" "Hide")
  219.          (settooltype "G_NAME6" "Quit")
  220.          (settooltype "DONOTWAIT" "1")
  221.        )))
  222.  
  223.  
  224.        (IF (= zusatze 0) (
  225.            (copyfiles
  226.                (source (tackon Filo_dest "FiloCheck"))
  227.                (dest   "SYS:WBStartup/") (infos)
  228.            )
  229.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  230.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax 0"))
  231.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloFax 1"))
  232.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  233.            )
  234.        ))                   
  235.  
  236.        (copyfiles
  237.          (source "RegiTool")
  238.          (dest Filo_dest)
  239.        )
  240.  
  241.        (complete 85)                    
  242.  
  243.    (copylib    (prompt #library)
  244.                (help "")
  245.                (source lib)
  246.                (dest "LIBS:")
  247.                (confirm)
  248.    )
  249.  
  250.    (IF (< (/ (getversion) 65536) 38)
  251.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  252.                  (setdefaulttool "sys:utilities/AmigaGuide")
  253.        )
  254.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  255.                  (setdefaulttool "sys:utilities/Multiview")
  256.        )
  257.    )           
  258.    (complete 95)
  259.  
  260.    (working #icon-posit)
  261.    (IF (<> icons 2) (
  262.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloFax\"     23 30\n"))
  263.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloCheck\"     155 15\n"))
  264.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloNote\"     161 65\n"))
  265.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloFax.guide\"     260 15\n"))
  266.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/Sounds\"     250 75\n"))
  267.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/RegiTool\"     350 39\n"))
  268.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "\"     DX 0 DY 12 DWIDTH 440 DHEIGHT 143\n"))
  269.    ))
  270.    (IF (= icons 2) (
  271.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloFax\"     50 39\n"))
  272.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloCheck\"     155 15\n"))
  273.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloNote\"     155 78\n"))
  274.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/FiloFax.guide\"     260 15\n"))
  275.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/Sounds\"     260 78\n"))
  276.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "/RegiTool\"   350 39\n"))
  277.     (run (cat "SetIconAttrs >NIL: \"" Filo_dest "\"     DX 0 DY 12 DWIDTH 440 DHEIGHT 163\n"))
  278.    ))
  279.    (complete 100)
  280. )
  281.  
  282. (procedure ende
  283.    (message #ende)
  284. )
  285.  
  286. (procedure setzen
  287.    (SET #icon-posit (cat ""
  288.      "Die Icons werden positioniert !!!"
  289.    ))
  290.    (set #ziel (cat ""
  291.      "In welche Disk/Schublade soll FiloFax installiert werden?"
  292.    ))
  293.  
  294.    (set #ziel_hilfe (cat ""
  295.      "Das Installationsprogramm erstellt das Verzeichnis   \n"
  296.      "\"FiloFax\" in diesem Verzeichnis.                   \n"
  297.      "Alle \"FiloFax\" Dateien werden in dieses Verzeichnis\n"
  298.      "kopiert                                              \n"
  299.    ))
  300.  
  301.    (set #zusatz (cat ""
  302.       "Wollen Sie das FiloCheck in die WBStartup\nkopiert wird?"
  303.    ))
  304.  
  305.    (set #zusatz_wahl1 (cat ""
  306.       "FiloCheck in SYS:WBStartup/"
  307.    ))
  308.    (SET #zusatz_wahl2 (cat ""
  309.       "FiloCheck NICHT in SYS:WB-Startup/"
  310.    ))
  311.  
  312.    (SET #icon (cat ""
  313.       "Was für Icons wünschen Sie?"
  314.    ))
  315.  
  316.    (SET #icon1 (cat ""
  317.       "Standard"
  318.    ))
  319.    (SET #icon2 (cat ""
  320.       "MagicWB"
  321.    ))
  322.    (SET #icon3 (cat ""
  323.       "NewIcons"
  324.    ))
  325.  
  326.  
  327.    (set #zusatz_hilfe (cat ""
  328.       "Das Programm FiloCheck wird beim Booten, wenn es\n"
  329.       "in der WBStartup ist, automatisch gestartet.\n"
  330.       "(FiloCheck wird über die Tooltypes konfiguriert,\n"
  331.       "mehr dazu in der Anleitung) \n\n"
  332.    ))
  333.  
  334.    (set #library (cat ""
  335.       "FiloFax benöntigt die ReqTools.library   \n"
  336.       "Wollen Sie diese jetzt installieren     \n"
  337.    ))
  338.  
  339.    (set #update (cat ""
  340.       "Sie haben sich für eine Updateinstallation entschieden.\n\n"
  341.       "Wählen Sie im folgenden Dateirequester, den Pfad von \n"
  342.       "FiloFax aus. Die Daten diese Verzeichnisses sind dann\n"
  343.       "unwiderruflich verloren und werden durch das Update \n"
  344.       "ersetzt.\n"  ))
  345.  
  346.    (set #u_ziel (cat ""
  347.       "Bitte wählen Sie den Pfad in dem sich die alte Version von "
  348.       "FiloFax befindet."
  349.    ))
  350.  
  351.    (set #u_ziel_hilfe (cat ""
  352.       "Das Installationsprogramm löscht alle Daten dieses Verzeichnises.\n"
  353.       "Danach wird die neue Version von FiloFax in dieses Verzeichnises "
  354.       "kopiert.                                                           "
  355.    ))
  356.  
  357.    (SET #ende (cat ""
  358.       "\n\n"
  359.       "Die Installation ist nun beendet.\n\n"
  360.       "Bitte starten Sie ihren Rechner neu, um FiloFax\n"
  361.       "richtig zu nutzen.\n"
  362.    ))
  363. )
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370. (SET lib "libs/reqtools.library")
  371. (SET @default-dest "SYS:")
  372.  
  373. (complete 0)
  374.  
  375. (IF (< (/ (getversion) 65536) 37)
  376.     (
  377.       (message "\n Tut mir leid, dieses Paket benoetigt mind. OS2.04.\n")
  378.       (exit (quiet))
  379.     )
  380. )
  381.  
  382. (SET filo_art (askchoice
  383.     (prompt "Welche Version von FiloFax wünschen Sie?")
  384.     (choices
  385.         "Reine MUI-Version"
  386.         "MUI-Version aber FiloCheck der Normal-Version"
  387.         "Reine Normal-Version"
  388.     )
  389.     (help "Ich empfehle die Wahl der reinen MUI-Version wenn:\n\n"
  390.           "   Ihnen das MagicUserInterface gefällt und Sie\n"
  391.           "   möchten das FiloCheck (das bei jedem Neustart\n"
  392.           "   gestartet wird) auch MUI nutzt.\n\n"
  393.           "Ich empfehle die Wahl der MUI-Version kombiniert mit\n"
  394.           "der Normal-Version wenn:\n\n"
  395.           "   Ihnen das MagicUserInterface gefällt aber Sie\n"
  396.           "   nicht möchten das FiloCheck (das bei jedem\n"
  397.           "   Neustart gestartet wird) auch MUI nutzt.\n\n"
  398.           "Ich empfehle die Wahl der reinen Normal-Version wenn:\n\n"
  399.           "   Ihnen das MagicUserInterface nicht zusagt.\n\n"
  400.           "Mehr dazu in der Anleitung im Kapitel Installation!"
  401.     )
  402. ))
  403. (setzen)
  404. (INSTALL)
  405. (ende)
  406. (exit (quiet))
  407.  
  408.  
  409.  
  410.  
  411.