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