Aminet 10/aminetcdnumber101996.iso/Aminet/util/cdity/ScreenTab_1_32.lha/ScreenTab/Deutsch/Install_Deutsch

Text File | 1995-12-11 | 11KB | 283 lines

; Installations-Skript für ScreenTab V1.32
; Autor: Michael Link
; Erste Erstellung : 28.10.94
; Letzte Änderung  : 11.12.95

(set BAD_VERSION    (cat "\n\nSorry, aber ScreenTab läuft erst ab\n"
                         "Kickstart 2.04."
                    )
)

(set SCRTAB_INSTALLED
                    (cat "\n\nScreenTab ist bereits auf Ihrem System aktiv.\n"
                         "Falls Sie die neue Version in dasselbe Verzeichnis\n"
                         "installieren wollen wie die alte, muss der\n"
                         "ScreenTab-Task beendet werden. Dies kann u. U. zu\n"
                         "Instabilitäten des Systems bis zum nächsten Reset\n"
                         "führen.\n\n"
                         "Wollen Sie trotzdem weitermachen ?"
                    )
)

(set DIRHELP        (cat "An dieser Stelle müssen Sie angeben, in welchem\n"
                      "Verzeichnis ScreenTab installiert werden soll.\n\n"
                      "Wenn ScreenTab gleich nach dem Start des Computers\n"
                      "aktiv sein soll, sollten Sie als Zielverzeichnis\n"
                      "\"SYS:WBStartup\" angeben."
                    )
)

(set DIR_REQUEST    (cat "Geben Sie jetzt das Verzeichnis an,\n"
                         "in dem ScreenTab installiert werden soll."
                    )
)

(set WHICH_HOTKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "ScreenTab-Voreinstellungen aufgerufen werden ?"
                    )
)

(set WHICH_SCRKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "Screens umgeschaltet werden ?\n\n"
                         "(Bitte geben Sie hier keine SHIFT-Taste an, da\n"
                         "diese für das Zurückblättern gebraucht werden !)"
                    )
)

(set WHICH_WINKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "Fenster umgeschaltet werden ?\n\n"
                         "(Bitte geben Sie hier keine SHIFT-Taste an, da\n"
                         "diese für das Zurückblättern gebraucht werden !)"
                    )
)

(set COPY_PREFS     "\n\nKopiere Voreinstellungsdatei ...")

(set VERSION_PROMPT (cat "\n\nEine ältere Voreinstellungsdatei ist auf\n"
                         "ihrem System installiert. Um diese Einstellungen\n"
                         "mit der neuen Version nutzen zu können, muß\n"
                         "eine Konvertierung vorgenommen werden.\n\n"
                         "Wollen Sie das ?"
                    )
)

(set ASK_LIBRARY    (cat "\n\nScreenTab benutzt, falls vorhanden,\n"
                         "die ScreenNotify-Library, um auf Wechsel der\n"
                         "Workbench-Auflösung reagieren zu können.\n\n"
                         "Wollen Sie diese Library installieren ?"
                    )
)

(set ASK_LIBRARY_HELP
                    (cat "Die Benutzung dieser Library ist optional.\n"
                         "Allerdings kann es zu Fehlern oder Abstürzen\n"
                         "kommen, wenn die Workbench-Auflösung ohne\n"
                         "installierte Library gewechselt wird.\n\n"
                         "Wenn Sie auf die ScreenNotify-Library\n"
                         "verzichten wollen, können Sie dies gezielt\n"
                         "mit dem Tool-Type USESCREENNOTIFY unterbinden,\n"
                         "indem Sie ihn auf NO setzen."
                    )
)

(set PLEASE_RESET   (cat "\n\nUm die neuen Einstellungen wirksam werden\n"
                         "zu lassen, müssen Sie jetzt einen Reset durch-\n"
                         "führen.\n\n"
                         "Viel Spaß mit ScreenTab !"
                    )
)

(set intuition_vernum (getversion "intuition.library" (resident)))
(set intuition_ver    (shiftright intuition_vernum 16))
(set locale_vernum    (getversion "locale.library" (resident)))
(set locale_ver       (shiftright locale_vernum 16))
(set scrntfy_vernum   (getversion "LIBS:screennotify.library"))
(set scrntfy_ver      (shiftright scrntfy_vernum 16))

(if (< intuition_ver 37)
    (abort BAD_VERSION)
)

; ***********************************************************************
; *                                                                     *
; * Läuft bereits ein ScreenTab-Task ?                                  *
; *                                                                     *
; ***********************************************************************

(if (run "/HandleScrTab CHECK" (safe))
    (if (askbool (prompt SCRTAB_INSTALLED)
                 (help)
                 (default 1)
        )
        (run "/HandleScrTab STOP")
        (exit (quiet))
    )
)

; ***********************************************************************
; *                                                                     *
; * Eingabe des Zielverzeichnis                                         *
; *                                                                     *
; ***********************************************************************

(set DIR (askdir (prompt DIR_REQUEST)
                 (help DIRHELP)
                 (default "SYS:WBStartup")
         )
)

(set @default-dest DIR)


; ***********************************************************************
; *                                                                     *
; * Festlegung der Tool-Types                                           *
; *                                                                     *
; ***********************************************************************

(set HOTKEY (askstring (prompt WHICH_HOTKEY)
                       (help @askstring-help)
                       (default "ctrl alt s")
            )
)

(set SWITCHKEY (askstring (prompt WHICH_SCRKEY)
                          (help @askstring-help)
                          (default "LCommand Tab")
               )
)

(set WINSWITCHKEY (askstring (prompt WHICH_WINKEY)
                          (help @askstring-help)
                          (default "LCommand `")
                  )
)

(tooltype (prompt "Schreibe Tool-Type HOTKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "CX_POPKEY" HOTKEY)
)

(tooltype (prompt "Schreibe Tool-Type SWITCHKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "SWITCHKEY" SWITCHKEY)
)

(tooltype (prompt "Schreibe Tool-Type WINSWITCHKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "WINSWITCHKEY" WINSWITCHKEY)
)

(copyfiles (prompt "Kopiere ScreenTab in das Zielverzeichnis")
           (help @copyfiles-help)
           (source "/ScreenTab")
           (dest DIR)
           (infos)
)


; ***********************************************************************
; *                                                                     *
; * Abfrage nach vorhandenem Prefs-File                                 *
; * und dessen Konvertierung                                            *
; *                                                                     *
; ***********************************************************************

(if (exists "ENVARC:ScreenTab.prefs")
    (if (= (run "/HandleScrTab PREFSVERSION" (safe) ) 2)
        (
            (if (askbool (prompt VERSION_PROMPT)
                         (help)
                         (default 1)
                )
                (if (= (run "/HandleScrTab CONVERTPREFS" (safe) ) 0)
                    (copyfiles (prompt)
                               (help)
                               (source "T:SCRT.TMP")
                               (dest "ENVARC:")
                               (newname "ScreenTab.prefs")
                    )
                    (message "Fehler beim Konvertieren !!!")
                )
            )
        )
    )
    (copyfiles (prompt COPY_PREFS)
               (help)
               (source "/ScreenTab.prefs")
               (dest "ENVARC:")
    )
)


; ***********************************************************************
; *                                                                     *
; * Installation der ScreenNotify-Library                               *
; *                                                                     *
; ***********************************************************************

(if (= scrntfy_ver 0)
    (if (askbool (prompt ASK_LIBRARY)
                 (help   ASK_LIBRARY_HELP)
                 (default 1)
        )
        (copylib (prompt "Kopiere die ScreenNotify-Library ...")
                 (help)
                 (source "/libs/screennotify.library")
                 (dest   "LIBS:")
                 (confirm)
        )
    )
)


; ***********************************************************************
; *                                                                     *
; * Installation der Kataloge                                           *
; *                                                                     *
; ***********************************************************************

(if (>= locale_ver 38)
    (
        (set CATALOGS (askoptions (prompt (cat "Welche Sprach-Kataloge sollen "
                                               "installiert werden ?"))
                                  (help)
                                  (choices "Deutsch" "Schwedisch" "Französisch" "Polnisch" "Italienisch")
                                  (default 1)
                      )
        )

        (set n 0)

        (while (set language (select n "deutsch" "svenska" "français" "polski" "italiano" ""))
            (if (IN CATALOGS n)
                (
                    (set srcpath (cat "/catalogs/"
                                      language
                                      "/ScreenTab.catalog"
                                 )
                    )
                    (set dstpath (cat "LOCALE:Catalogs/" language))
                    (set langmsg (cat "Kopiere "
                                      (select n "deutschen" "schwedischen" "französichen" "polnischen" "italienischen")
                                      " Katalog ..."
                                 )
                    )
                    (copyfiles (prompt langmsg)
                               (help)
                               (source srcpath)
                               (dest   dstpath)
                    )
                )
            )
            (set n (+ n 1))
        )
    )
)

(message PLEASE_RESET)