home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / turboprint5l / install < prev    next >
Text File  |  1997-06-02  |  23KB  |  833 lines
  1. ; Installation script for TurboPrint Professional 5.02 LIGHT 
  2. ; (C) 1996,97 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 5.02 LIGHT (07.01.97) 
  6. ;
  7. ;
  8. ;   "Install TurboPrint"         operationMode = 0
  9. ;   "Update TurboPrint"          operationMode = 1
  10. ;   "Remove TurboPrint"          operationMode = 2
  11. ;   "Query TurboPrint Version"   operationMode = 3
  12. ;
  13.  
  14.  
  15. ; String constants section. All messages and strings appear in this section
  16. ; for easier translation into foreign languages.
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;
  20. ; LANGUAGE SECTION
  21. ;
  22. ; to support more than only one language, there is a special section for
  23. ; each supported language.
  24. ;
  25.  
  26. ( set @language "english")
  27.  
  28. (if (= @language "deutsch")
  29.  (
  30.    (set #graphics-publisher "GrafikPublisher")
  31.    (set #druck-manager "DruckManager")
  32.    (set #read-me "LiesMich")
  33.    (set #extra-personalisierung "extra/personalisierung")
  34.  
  35.    (set #tp-version "TurboPrint Professional 5.02 LIGHT (07.01.97) " )
  36.  
  37.    (set #wrongversion
  38.       (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  39.            "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer V43.3. "
  40.            "Dieser befindet sich auf der Diskette.\n\n"
  41.            "Falls Sie das Utility MCP installiert haben, müssen Sie den Installer von Diskette "
  42.            "auf Ihren Amiga kopieren oder MCP abschalten."
  43.       )
  44.    )
  45.  
  46.    (set #introduction
  47.       (cat "\nInstallation von TurboPrint Professional 5.02 LIGHT \n"
  48.              "    Copyright © 1996,97 IrseeSoft SPCS\n\n"
  49.            "Bitte wählen Sie:\n\n"
  50.       )
  51.    )
  52.  
  53.    (set #introduction-help
  54.       (cat "Neu installieren von TurboPrint:\n"
  55.            "Die TurboPrint Software wird auf Ihre Festplatte kopiert. "
  56.            "Wählen Sie diese Option, falls noch keine ältere Version "
  57.            "von TurboPrint auf Ihrer Festplatte installiert war.\n\n"
  58.        "Update installieren:\n"
  59.            "Eine bereits auf der Platte befindliche alte Version von "
  60.            "TurboPrint wird durch TurboPrint Professional 5 ersetzt. "
  61.            "Dazu werden nicht mehr benötigte Dateien der alten Version "
  62.            "gelöscht.\n\n"
  63.            "Entfernen von der Platte:\n"
  64.            "Das TurboPrint Verzeichnis wird von der Platte gelöscht, "
  65.            "Einträge in der user-startup und im WBStartup-Verzeichnis "
  66.            "werden entfernt.\n\n"
  67.            "Version:\n"
  68.            "Die Versionsnummern von Kickstart, Workbench und TurboPrint "
  69.        "werden angezeigt.\n\n"
  70.       )
  71.    )
  72.  
  73.    (set #need-os2
  74.       (cat "\nTurboPrint Professional 5 benötigt Kickstart 2.04 oder höher\n"
  75.            "Um TurboPrint Professional 5 zu verwenden, müssen Sie Ihren "
  76.            "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
  77.            "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
  78.        "sind im Fachhandel oder Versandhandel erhältlich.\n"
  79.        "Als Übergangslösung empfehlen wir die Verwendung von "
  80.            "TurboPrint 3.0.\n"
  81.       )
  82.    )
  83.  
  84.    (set #install "Neu installieren von TurboPrint")
  85.    (set #update  "Update installieren")
  86.    (set #remove  "Entfernen von der Platte")
  87.    (set #version "Versionsnummer anzeigen")
  88.  
  89.    (set #path-prompt0 (cat "In welchem Verzeichnis soll das TURBOprint-Verzeichnis "
  90.               "erstellt werden?")
  91.    )
  92.  
  93.    (set #path-prompt1 (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  94.               "in welches das Update installiert werden soll?")
  95.    )
  96.  
  97.    (set #path-prompt2 (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  98.               "das entfernt werden soll?")
  99.    )
  100. ; additional help to the built-in one
  101.    (set #generic-help
  102.       (cat "Bitte lesen Sie auch die ReadMe-Datei auf dieser Diskette!\n"
  103.       )
  104.    )
  105.  
  106.    (set #which-printer
  107.       (cat "Bitte wählen Sie Ihren Drucker aus\n(oder wählen Sie"
  108.            "'Hilfe', falls Ihr Drucker nicht aufgelistet ist)\n")
  109.    )
  110.    (set #help-printer
  111.       (cat "Falls Ihr Drucker nicht namentlich aufgelistet ist, "
  112.            "sehen Sie bitte in Ihrem Drucker-Handbuch nach, welche "
  113.            "Emulationen Ihr Drucker unterstützt und wählen den "
  114.        "entsprechenden TurboPrint-Treiber "
  115.        "(z.B. Epson LQ2550 -> Epson_LQ,SQxx50 in TurboPrint) "
  116.        "oder wählen Sie einen der folgenden Einträge: \n"
  117.        "'.24-Nadel', '.9-Nadel', '.Laser', "
  118.        "'.Tinte-HP-kompatibel', '.Tinte-Epson-kompatibel'\n\n"
  119.        "Sie können auch nach der Installation jederzeit weitere "
  120.            "Treiber auswählen.\n\n" )
  121.    )
  122.  
  123.    (set #another-printer
  124.       (cat "Wollen Sie einen weiteren Drucker installieren?\n"
  125.            "Bisher installierte Drucker:\n\n" )
  126.    )
  127.  
  128.    (set #ask-priyes "Ja")
  129.    (set #ask-prino "Nein")
  130.  
  131.    (set #remove-drivers
  132.       (cat "\nSie haben 'TurboPrint von der Platte entfernen' gewählt.\n"
  133.            "Dabei wird die TurboPrint-Schublade komplett von der Festplatte "
  134.            "gelöscht. Bitte vergewissern Sie sich, ob sich darin noch "
  135.            "von Ihnen benötigte Programme oder Dateien befinden!\n"
  136.       )
  137.    )
  138.  
  139.    (set #update-drivers
  140.       (cat "\nBeim Update werden alle Dateien gelöscht, die "
  141.            "sich momentan in den Verzeichnissen "
  142.            "'Printers', 'Configs' und 'Turbo' innerhalb der TurboPrint "
  143.            "Schublade befinden.\n"
  144.            "z.B. auch alte Druckertreiber und Konfigurationsdateien.\n" 
  145.            "Falls Sie das nicht wollen, wählen Sie bitte "
  146.            "'Installation abbrechen'."
  147.       )
  148.    )
  149.  
  150.    (set #removing-drivers
  151.       (cat "\nTurboPrint wird von Ihrer Festplatte entfernt..."
  152.       )
  153.    )
  154.    (set #removing-TurboPrefs
  155.       (cat "Falls die startup-sequence/user-startup durch das TurboPrint "
  156.            "Installationsprogramm geändert wurde, wird dies nun "
  157.            "automatisch rückgängig gemacht."
  158.       )
  159.    )
  160.    (set #adding-TurboPrefs
  161.       (cat "Die user-startup Datei wird um den Befehl \n"
  162.            "'Assign TurboPrint: <pfad>:TurboPrint' \n"
  163.            "erweitert."
  164.       )
  165.    )
  166.  
  167.    (set #ask-wbstart20
  168.     (cat "Sie können TurboPrint beim Rechnerstart automatisch installieren "
  169.          "lassen. Dazu wird ein Startprogramm in die WBStartup-Schublade "
  170.          "kopiert.\n"
  171.      "Sie können den Autostart jederzeit wieder entfernen, indem Sie "
  172.          "das Icon 'TurboStart' aus der WBStartup-Schublade herausnehmen.\n"
  173.     )
  174.    )
  175.    (set #wbstart-help
  176.     (cat "Autostart installieren:\n"
  177.          "Beim Einschalten des Rechners oder nach einem Reset wird "
  178.          "TurboPrint automatisch geladen. Dies ist sinnvoll, wenn "
  179.          "Sie meistens TurboPrint-Treiber anstelle der Workbench-Druckertreiber "
  180.          "verwenden wollen. Um wieder auf die Workbench-Treiber "
  181.          "zurückzuschalten, verwenden Sie das Programm 'NoTurbo'.\n\n"
  182.          "Kein Autostart:\n"
  183.          "TurboPrint muß nach dem Einschalten mit Hilfe von TurboPrefs "
  184.          "geladen werden. Diese Option ist sinnvoll, wenn Sie "
  185.          "in der Regel mit den Workbench-Treibern arbeiten und nur "
  186.          "bei Bedarf auf die TurboPrint-Treiber umschalten wollen.\n\n"
  187.     )
  188.    )
  189.  
  190.    (set #ask-wbyes "Autostart installieren" )
  191.  
  192.    (set #ask-wbno "Kein Autostart" )
  193.  
  194.    (set #ask-printmanager 
  195.     (cat "Wollen Sie das Grafik Anzeige- und Druckprogramm "
  196.          "Grafik-Publisher installieren?" 
  197.     )
  198.    )
  199.  
  200.    (set #ask-pmyes "Grafik-Publisher installieren" )
  201.  
  202.    (set #ask-pmno "Nicht installieren" )
  203.  
  204.    (set #ask-pictures 
  205.     (cat "Wollen Sie die Demo-Bilder auf die Festplatte kopieren?" )
  206.    )
  207.  
  208.    (set #ask-piyes "Bilder kopieren" )
  209.  
  210.    (set #ask-pino "Nicht kopieren" )
  211.  
  212.    (set #version-info "\nInformation über Ihr System:\n")
  213.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  214.  
  215.  
  216.    (set #installation-done
  217.       (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
  218.     "Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
  219.     "Sie Ihren Amiga neu."
  220.     )
  221.    )
  222. ))
  223.  
  224. (if (= @language "english")
  225.  (
  226.    (set #graphics-publisher "GraphicsPublisher")
  227.    (set #druck-manager "PrintManager")
  228.    (set #read-me "ReadMe")
  229.    (set #extra-personalisierung "extra/personalization")
  230.  
  231.    (set #tp-version "TurboPrint Professional 5.02 LIGHT (07.01.97)" )
  232.  
  233.    (set #wrongversion
  234.       (cat "Attention: You are using an old version of the 'Installer' software."
  235.            "This installation script needs at least Installer V43.3. "
  236.            "Installer V43.3 is included on this disk.\n\n"
  237.            "If you are using the MCP utility, you must either copy the new Installer"
  238.            "onto your hard drive or switch off MCP."
  239.       )
  240.    )
  241.  
  242.    (set #introduction
  243.       (cat "\nInstallation of TURBOprint Professional 5.02 LIGHT\n"
  244.              "    Copyright © 1996,97 IrseeSoft SPCS\n\n"
  245.            "Please choose:\n\n"
  246.       )
  247.    )
  248.  
  249.    (set #introduction-help
  250.       (cat "\n"
  251.       )
  252.    )
  253.  
  254.    (set #need-os2
  255.       (cat "\nTurboPrint Professional 5 needs Kickstart 2.04 or higher\n"
  256.            "To use TurboPrint Professional 5 you need to upgrade your Amiga "
  257.            "(Kickstart ROM + disks). Ask your Amiga dealer for details. "
  258.       )
  259.    )
  260.  
  261.    (set #install "First installation of TURBOprint")
  262.    (set #update  "Install update")
  263.    (set #remove  "Remove from hard disk")
  264.    (set #version "Show version number")
  265.  
  266.    (set #path-prompt0 (cat "Please select the location where the TURBOprint drawer "
  267.               "shall be installed")
  268.    )
  269.  
  270.    (set #path-prompt1 (cat "Please locate the TURBOprint drawer "
  271.               "where the update shall be installed")
  272.    )
  273.  
  274.    (set #path-prompt2 (cat "Please locate the TURBOprint drawer "
  275.               "to be removed")
  276.    )
  277.  
  278. ; additional help to the built-in one
  279.    (set #generic-help
  280.       (cat "Please read the ReadMe-file on this disk!\n"
  281.       )
  282.    )
  283.  
  284.    (set #which-printer
  285.       (cat "Please choose your printer\n"
  286.            "or select 'Help', if your printer is not listed"
  287.       )
  288.    )
  289.    (set #help-printer
  290.       (cat "If your printer is not listed, please read the "
  291.            "printer's user manual to find out which emulations the printer "
  292.            "supports and select the appropriate TurboPrint driver.\n "
  293.            "For Epson ESC/p compatible 9-pin printers choose "
  294.            "'.9-pin', for 24-pin printers choose '.24-pin', for "
  295.            "HP PCL compatible laser printers choose '.laser'\n\n"
  296.       )
  297.    )
  298.  
  299.    (set #another-printer
  300.       (cat "Do you want to install another printer driver?\n"
  301.            "Installed printer drivers:\n\n"
  302.       )
  303.    )
  304.    (set #ask-pryes
  305.       (cat "Yes")
  306.    )
  307.    (set #ask-prno
  308.       (cat "No")
  309.    )
  310.  
  311.    (set #remove-drivers
  312.       (cat "\nYou have chosen 'remove from hard disk'.\n"
  313.            "The TURBOprint drawer will be erased completely. "
  314.            "Please make sure that there are no other programs "
  315.            "or files of you in it!\n"
  316.       )
  317.    )
  318.  
  319.    (set #update-drivers
  320.       (cat "\nUpdating deletes all files in the drawers "
  321.            "'Printers', 'Configs' und 'Turbo' within the TURBOprint "
  322.            "drawer,\n"
  323.            "i.e. old printer drivers and config files.\n" 
  324.            "If you don't want to delete them, choose "
  325.            "'Abort installation'."
  326.       )
  327.    )
  328.  
  329.    (set #removing-drivers
  330.       (cat "\nTURBOprint is being removed..."
  331.       )
  332.    )
  333.    (set #removing-turboprefs
  334.       (cat "If your startup-sequence/user-startup has been changed "
  335.            "by this installation program, it will be restored now."
  336.       )
  337.    )
  338.    (set #adding-turboprefs
  339.       (cat "The following two lines will be added to the "
  340.        "file 's:user-startup': \n"
  341.            "'Assign TURBOprint: <pfad>:TURBOprint'\n"
  342.            "'TURBOprint:TURBOprefs -q'"
  343.       )
  344.    )
  345.    (set #removing-startup
  346.       (cat "If you have changed your startup-sequence "
  347.        "for TURBOprint 1.0/2.0: \n"
  348.        "The commands 'assign TURBOprint: ...' and 'TURBOprint:Turboprefs -q' are "
  349.        "no longer necessary and should be removed.\n"
  350.       )
  351.    )
  352.  
  353.    (set #ask-wbstart20
  354.     (cat "TURBOprint can be loaded automatically on boot-up. "
  355.          "For this purpose the file 'TURBOstart' will be copied "
  356.          "to the WBStart drawer.\n")
  357.    )
  358.  
  359.    (set #wbstart-help
  360.     (cat "\n"
  361.     )
  362.    )
  363.  
  364.    (set #ask-wbyes "Install autostart" )
  365.  
  366.    (set #ask-wbno "No autostart" )
  367.  
  368.    (set #ask-printmanager 
  369.     (cat "Do you want to install the graphics view and print program "
  370.          "GraphicsPublisher?" 
  371.     )
  372.    )
  373.  
  374.    (set #ask-pmyes "Install GraphicsPublisher" )
  375.  
  376.    (set #ask-pmno "Don't install GraphicsPublisher" )
  377.  
  378.    (set #ask-pictures 
  379.     (cat "Do you want to copy the demo pictures to your hard disk?" )
  380.    )
  381.  
  382.    (set #ask-piyes "Copy pictures" )
  383.  
  384.    (set #ask-pino "Don't copy pictures" )
  385.  
  386.    (set #version-info "\nInformation about your system:\n")
  387.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  388.  
  389.  
  390.    (set #installation-done
  391.       (cat "The installation of TURBOprint has been completed. "
  392.            "Please remove your TurboPrint disk and reboot your Amiga now.\n"
  393.       )
  394.    )
  395. ))
  396.  
  397. ; General initialisation of internal states, options and pre-defined
  398. ; variables go here.
  399.  
  400. (delopts askuser)
  401.  
  402. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  403. ; This is needed for the WBStartup feature and the Printmanager
  404.  
  405. (set kickVersion (shiftright (getversion) 16))
  406.  
  407. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  408.  
  409. ; set source directory
  410.  
  411. (set sourcedir (pathonly @icon))
  412.  
  413. ;
  414. (if (< kickVersion 37)
  415.   (
  416.    (message #need-os2)
  417.    (exit (quiet))
  418.   )
  419. )
  420. ;
  421.  
  422. ;Installer-Version prüfen...
  423.  
  424. (if (< @installer-version 2818051)
  425.  (
  426.   (user 2)
  427.   (message #wrongversion)
  428.   (exit (quiet))
  429.  )
  430. )
  431.  
  432. (welcome)
  433.  
  434. ; remember current user level
  435.  
  436. (set old-level @user-level)
  437.  
  438. ; Introduce ourself to the user. Query whether the software shall be
  439. ; installed/updated or removed altogether.
  440.  
  441. (set operationMode
  442.    (askchoice
  443.       (prompt #introduction)
  444.       (choices #install #update #remove #version)
  445.       (help #generic-help #introduction-help @askchoice-help)
  446.    )
  447. )
  448.  
  449. ; Show version number
  450.  
  451. (if (= operationMode 3)
  452.    (
  453.    ; Find out the version of the Kickstart and Workbench and append it to the
  454.    ; version information string.
  455.  
  456.    (set #version-info 
  457.      (cat #version-info 
  458.       (#system-version-info 
  459.  
  460.     (shiftright (getversion) 16)
  461.     (bitand (getversion) 65535)
  462.     (shiftright (getversion "LIBS:version.library") 16)
  463.     (bitand (getversion "LIBS:version.library") 65535)
  464.       )
  465.      )
  466.    )
  467.      
  468.  
  469.    ; Get the version string from this installer script itself!
  470.  
  471.    (set #version-info (cat #version-info #tp-version))
  472.  
  473.    (message #version-info)
  474.    (exit (quiet))
  475.    )
  476. )
  477.  
  478. ; Get path of TurboPrint
  479. ; Set the prompt depending on operationMode
  480.  
  481. (if (= operationMode 0)
  482.  
  483.    (set #path-prompt #path-prompt0 )
  484. )
  485.  
  486. (if (= operationMode 1)
  487.  
  488.    (set #path-prompt #path-prompt1 )
  489. )
  490.  
  491. (if (= operationMode 2)
  492.  
  493.    (set #path-prompt #path-prompt2 )
  494. )
  495.  
  496.  
  497. ; ask for the destination directory
  498.  
  499. (if (not (exists "Work:"))
  500.    (user 1)
  501. )
  502.  
  503. (set target
  504.    (askdir (prompt #path-prompt)
  505.    (help #generic-help @askdir-help)
  506.    (default "Work:") )
  507. )
  508.  
  509. (user old-level)
  510.  
  511. ; do some cleanup if there was an old version of tp installed
  512. ; - no questions aked -
  513. ; try to remove TurboPrint
  514.  
  515. (run (cat (tackon sourcedir "NoTurbo") " -q"))
  516.  
  517. ; Update TurboPrint => remove contents of Printers, Configs and Turbo drawers
  518.  
  519. (if (= operationMode 1)
  520.  (
  521.    (message #update-drivers)
  522.    
  523.       (delete (tackon target (cat "TurboPrint/" #druck-manager)))
  524.       (delete (tackon target (cat "TurboPrint/" #druck-manager ".info")))
  525.       (delete (tackon target "TurboPrint/TurboPrefs"))
  526.       (delete (tackon target "TurboPrint/TurboPrefs.info"))
  527.       (delete (tackon target "TurboPrint/NoTurbo"))
  528.       (delete (tackon target "TurboPrint/NoTurbo.info"))
  529.  
  530.       (delete (tackon target "TurboPrint/Printers") (all))
  531.       (delete (tackon target "TurboPrint/Configs") (all))
  532.       (delete (tackon target "TurboPrint/Turbo") (all))
  533.       (delete (tackon target "TurboPrint/Colors") (all))
  534.       (delete (tackon target "TurboPrint/Drivers") (all))
  535.  )
  536. )
  537.  
  538. ; Remove TurboPrint => remove TurboPrint drawer completely
  539.  
  540. (if (= operationMode 2)
  541.  (
  542.    (message #remove-drivers)
  543.    (working #removing-drivers)
  544.  
  545.    (delete (tackon target "TurboPrint") (all) )
  546.  
  547.    ;Remove TurboStart in WBStartup
  548.  
  549.    (delete "sys:WBStartup/TurboStart.info")
  550.  
  551.    ;Remove TurboPrefs in Prefs
  552.  
  553.    (delete "sys:Prefs/TurboPrefs.info")
  554.  
  555.    ;Inform user
  556.  
  557.    (startup "TurboPrint"
  558.          (prompt #removing-TurboPrefs)
  559.          (help #generic-help @startup-help)
  560.    )
  561.  )
  562. )
  563.  
  564. ;if install or update
  565.  
  566. (if (or (= operationMode 0) (= operationMode 1) )
  567.   (
  568.  
  569. ;Personalisierung
  570.  
  571.    (run (cat (tackon sourcedir #extra-personalisierung) " -q"))
  572.     
  573.  
  574. ;Make TurboPrint drawer
  575.    (makedir   (tackon target "TurboPrint") (infos))
  576.  
  577. ;Copy printer stuff
  578.    (copyfiles
  579.           (help   #generic-help @copyfiles-help)
  580.           (source (tackon sourcedir "Printers"))
  581.              (dest   (tackon target "TurboPrint/Printers"))
  582.               (all)
  583.    )
  584.  
  585. ;Choose default printer(s)
  586.  
  587. (set printer-copy 1)
  588.  
  589. (user 1)
  590.  
  591. (while (= 1 printer-copy)
  592.  (
  593.  
  594.   (set printer-name
  595.    (askfile (prompt #which-printer)
  596.    (help #help-printer @askfile-help)
  597.    (default (tackon target "TurboPrint/Printers"))
  598.    )
  599.   )
  600.  
  601.   (if ( = (tackon target "TurboPrint/Printers") (pathonly printer-name) )
  602. (
  603.   (set printer-name (fileonly printer-name))
  604.  
  605.   (set printer-name (substr printer-name 0 ( - (strlen printer-name) 4) ))
  606.  
  607.   (copyfiles
  608.    (help   #generic-help @copyfiles-help)
  609.    (source (tackon sourcedir "Configs/_Dummy_"))
  610.    (dest   (tackon target "TurboPrint/Configs" ))
  611.    (newname (cat printer-name ".tpc") )
  612.   )
  613.  
  614.   (set printer-list (cat printer-list printer-name "\n"))
  615.  
  616.   (set printer-copy (askbool (prompt (cat #another-printer printer-list) )
  617.          (help @askchoice-help)
  618. ))
  619.    )
  620.   )
  621.  
  622.  )
  623. )
  624.  
  625. (user old-level)
  626.  
  627.  
  628.  
  629. ;user-startup
  630. ;the installer creates a user-startup if it doesn't already exist
  631. ;dont ask user
  632.  
  633.  ;Add assign to user-startup
  634.  
  635.       (startup "TurboPrint"
  636.          (command (cat "Assign TurboPrint: \"" (tackon target "TurboPrint") "\"")
  637.          )
  638.          (prompt #adding-TurboPrefs)
  639.          (help #generic-help @startup-help)
  640.       )
  641.  
  642. ;Execute assign NOW
  643.  
  644. (makeassign ("TurboPrint") (tackon target "TurboPrint") )
  645.  
  646.  
  647. ;install one of the two autostart options
  648.  
  649.    ;OS 2.x/3.0 => wbstartup drawer
  650.    ;ask user if he/she wants to have the autostart option installed
  651.  
  652.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  653.          (help #wbstart-help @askchoice-help)
  654.          (choices #ask-wbyes #ask-wbno)
  655.          (default 0)
  656.        )    )
  657.  (
  658.  ;Copy TurboStart icon to WBStartup-drawer
  659.  
  660.    (copyfiles
  661.           (help   #generic-help @copyfiles-help)
  662.           (source (tackon sourcedir "extra/TurboStart.info"))
  663.              (dest   "sys:WBStartup" )
  664.    )
  665.  
  666.    ;Put correct paths into TurboStart icon
  667.  
  668.    (tooltype
  669.       (dest "sys:WBStartup/TurboStart")
  670.           (setdefaulttool "TurboPrint:TurboPrefs" )
  671.           (settooltype "QUICK" "")
  672.           (settooltype "DONOTWAIT" "")
  673.       (noposition)
  674.    )
  675.  
  676.  )
  677. )
  678.  
  679. ;install the print manager?
  680.  
  681. (if (>= kickVersion 37)
  682.  (if (= 0 (askchoice (prompt #ask-printmanager)
  683.          (help @askchoice-help)
  684.          (choices #ask-pmyes #ask-pmno)
  685.          (default 0)
  686.          )
  687.     )
  688.   (
  689.    (copyfiles
  690.           (help   #generic-help @copyfiles-help)
  691.           (source (tackon sourcedir #graphics-publisher))
  692.              (dest   (tackon target "TurboPrint") )
  693.           (newname #druck-manager)
  694.    )
  695.    (copyfiles
  696.           (help   #generic-help @copyfiles-help)
  697.           (source (tackon sourcedir #graphics-publisher))
  698.              (dest   (tackon target "TurboPrint") )
  699.               (infos)
  700.    )
  701.    (copylib
  702.          (source (tackon sourcedir "libs/multipic.library"))
  703.          (dest   "LIBS:")
  704.    )
  705.   )
  706.  )
  707. )
  708.  
  709. ;install the pictures?
  710.  
  711. (if (= 0 (askchoice (prompt #ask-pictures)
  712.          (help @askchoice-help)
  713.          (choices #ask-piyes #ask-pino)
  714.          (default 0)
  715.          )
  716.     )
  717.  (
  718.    (copyfiles
  719.           (help   #generic-help @copyfiles-help)
  720.           (source (tackon sourcedir "Pictures"))
  721.              (dest   (tackon target "TurboPrint/Pictures"))
  722.               (all)
  723.           (infos)
  724.    )
  725.  )
  726. )
  727.  
  728.  
  729. ;Do the other stuff
  730.  
  731.    (copyfiles
  732.           (help   #generic-help @copyfiles-help)
  733.           (source (tackon sourcedir "TurboPrefs"))
  734.              (dest   (tackon target "TurboPrint") )
  735.           (infos)
  736.    )
  737.  
  738.  ;Copy TurboPrefs icon to sys:prefs
  739.  
  740.    (copyfiles
  741.           (help   #generic-help @copyfiles-help)
  742.           (source (tackon sourcedir "extra/TurboStart.info"))
  743.              (dest   "sys:Prefs" )
  744.           (newname "TurboPrefs.info" )
  745.    )
  746.  
  747.    ;Put correct paths into TurboStart icon
  748.  
  749.    (tooltype
  750.       (dest "sys:Prefs/TurboPrefs")
  751.           (setdefaulttool "TurboPrint:TurboPrefs" )
  752.           (settooltype "(QUICK)" "" )
  753.       (noposition)
  754.    )
  755.  
  756.    (copyfiles
  757.           (help   #generic-help @copyfiles-help)
  758.           (source (tackon sourcedir "NoTurbo"))
  759.              (dest   (tackon target "TurboPrint") )
  760.           (infos)
  761.    )
  762.  
  763.    (copyfiles
  764.           (help   #generic-help @copyfiles-help)
  765.           (source (tackon sourcedir "Turbo"))
  766.              (dest   (tackon target "TurboPrint/Turbo"))
  767.               (all)
  768.    )
  769.    (copyfiles
  770.           (help   #generic-help @copyfiles-help)
  771.           (source (tackon sourcedir "Extra"))
  772.              (dest   (tackon target "TurboPrint/Extra"))
  773.           (infos)
  774.               (all)
  775.    )
  776.    (copyfiles
  777.           (help   #generic-help @copyfiles-help)
  778.           (source (tackon sourcedir "Docs"))
  779.              (dest   (tackon target "TurboPrint/Docs"))
  780.           (infos)
  781.               (all)
  782.    )
  783.    (copyfiles
  784.           (help   #generic-help @copyfiles-help)
  785.           (source (tackon sourcedir "Temp"))
  786.              (dest   (tackon target "TurboPrint/Temp"))
  787.               (all)
  788.    )
  789.    (copyfiles
  790.           (help   #generic-help @copyfiles-help)
  791.           (source (tackon sourcedir "Libs"))
  792.              (dest   (tackon target "TurboPrint/Libs"))
  793.               (all)
  794.    )
  795.    (copyfiles
  796.           (help   #generic-help @copyfiles-help)
  797.           (source (tackon sourcedir "Configs/_Default_"))
  798.              (dest   (tackon target "TurboPrint/Configs"))
  799.    )
  800.    (copyfiles
  801.           (help   #generic-help @copyfiles-help)
  802.           (source (tackon sourcedir "Colors"))
  803.              (dest   (tackon target "TurboPrint/Colors"))
  804.               (all)
  805.    )
  806.    (copyfiles
  807.           (help   #generic-help @copyfiles-help)
  808.           (source (tackon sourcedir "Drivers"))
  809.              (dest   (tackon target "TurboPrint/Drivers"))
  810.               (pattern "~(#?.fzp)")
  811.    )
  812.    (copyfiles
  813.           (help   #generic-help @copyfiles-help)
  814.           (source (tackon sourcedir "Drivers"))
  815.              (dest   (tackon target "TurboPrint/Drivers"))
  816.               (compression)
  817.               (pattern "#?.fzp")
  818.    )
  819.  
  820.    (copyfiles
  821.           (help   #generic-help @copyfiles-help)
  822.           (source (tackon sourcedir #read-me))
  823.              (dest   (tackon target "TurboPrint") )
  824.           (infos)
  825.    )
  826.  
  827.  
  828. ))
  829. (user 1)
  830. (message #installation-done)
  831. (exit (quiet))
  832.  
  833.