home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Mecomp Multimedia 1
/
Mecomp-CD.iso
/
amiga
/
tools
/
wb
/
emenubar
/
emenübar_install
< prev
next >
Wrap
Text File
|
1997-06-09
|
3KB
|
115 lines
; *********************************************************************
;
; $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
;
; *********************************************************************