home *** CD-ROM | disk | FTP | other *** search
- ; *********************************************************************
- ;
- ; $VER: EMenüBar Installer Script 1.1.1 (28.05.1997)
- ;
- ; Dieser Skript installiert den EMenüBar und Hilfsdateien
- ;
- ; *********************************************************************
-
- ; ***** Voreinstellungen
-
- (set #SourceDir ":")
-
- (set #AskDestDir
- (cat "Bitte wählen Sie das Verzeichnis, in dem EMenüBar "
- "installiert werden soll. "
- "Dort wird automatisch ein neues Verzeichnis für"
- "EMenüBar angelegt." )
- )
- (set #AskDestDirHelp
- (cat "Für die Installation werden auf dem Ziellaufwerk"
- "ca. 100 KB freier Speicherplatz benötigt.\n\n"
- "Dieses Installationsprogramm erstellt in dem aus"
- "gewählten Pfad ein neues Verzeichnis: 'EMenüBar'."
- "Das Programm EMenüBar und die Anleitung "
- "EMenüBar.Guide sowie später die `Prefs-Datei` "
- "wird in diesem Verzeichnis abgelegt.")
- )
-
- ; *********************************************************************
- ;
- ; Die Installation beginnt
- ;
- ; *********************************************************************
-
- ; **** Wohin mit dem EMenüBar
- (set Dest_Dir
- (askdir
- (prompt #AskDestDir )
- (help #AskDestDirHelp )
- (default "Sys:")
- )
- )
-
- (set RealDest (tackon Dest_Dir "EMenüBar"))
-
- (if (= (exists RealDest) 0)
- (makedir RealDest (infos))
- )
-
- ; Den EMenüBar kopieren.
- (copyfiles
- (source (tackon #SourceDir "EMenüBar"))
- (dest RealDest)
- )
-
- (copyfiles
- (source (tackon #SourceDir "EMenüBar.info"))
- (dest RealDest)
- )
-
- ; Das .guide-FIle kopieren.
- (copyfiles
- (source (tackon #SourceDir "EMenüBar.guide"))
- (dest RealDest)
- )
-
- (copyfiles
- (source (tackon #SourceDir "EMenüBar.guide.info"))
- (dest RealDest)
- )
-
- ; Das Anpassungs-Programm kopieren
- (copyfiles
- (source (tackon #SourceDir "EMenüBar_Prefs-Anpassung"))
- (dest RealDest)
- )
-
- (copyfiles
- (source (tackon #SourceDir "EMenüBar_Prefs-Anpassung.info"))
- (dest RealDest)
- )
-
- ; Das EMenüBar-Startprogramm in die WBStartup!
- (copyfiles
- (source (tackon #SourceDir "EMenüBar_Startup"))
- (dest "Sys:WBStartup")
- )
-
- (copyfiles
- (source (tackon #SourceDir "EMenüBar_Startup.info"))
- (dest "Sys:WBStartup")
- )
-
- ; ***** Die User-Startup ergänzen
- (startup "EMenüBar"
- (prompt "Die folgende Zeile wird in der `user-startup` angefügt "
- "damit EMenüBar ordnungsgemäß konfiguriert ist:\n\n"
- "ASSIGN EMenüBar: "\" RealDest "\"\n"
- (help)
- )
- (command "ASSIGN EMenüBar: "\" RealDest "\"\n")
- )
-
- ;Damit EMenüBar sofort (ohne Neustart) laufen kann, ist der ASSIGN
- ;manuell zu setzen.
-
- (makeassign "EMenüBar" RealDest)
-
- (set @default-dest RealDest)
-
- ; *********************************************************************
- ;
- ; Installationsende
- ;
- ; *********************************************************************