home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
System
/
DefIcons44
/
Install
< prev
next >
Wrap
Text File
|
2000-01-01
|
2KB
|
110 lines
; $VER: Installer script for DefIcons44 1.1 (01.01.00) © 1999/2000 by Stephan Rupprecht
;--- localize strings ----
(if (= @language "deutsch")
(
(set #wrongver "DefIcons44 benötigt OS3.5 oder besser !!!")
(set #askdir_mainprg "Wohin soll das Hauptprogramm (DefIcons44) kopiert werden?")
(set #askdir_prefs "Bitte wählen Sie das Zielverzeichnis für das Voreinstellungsprogramm")
(set #copy_config "Soll die mitgelieferte deficons.prefs Datei installiert werden?")
)
(
(set #wrongver "DefIcons44 requires OS3.5 or better !!!")
(set #askdir_mainprg "Please select the destination drawer for DefIcons44")
(set #askdir_prefs "Please select the drawer for the preferences editor")
(set #copy_config "Do you wish to install the supplied deficons.prefs file?")
)
)
;--- check os version ---
(set #vernum (getversion "workbench.library" (resident)))
(set #vernum (/ #vernum 65536))
(if(< #vernum 44)
(abort #wrongver)
)
;--- askdir for main program ---
(set @default-dest
(askdir
(prompt #askdir_mainprg)
(help @askdir-help)
(default "SYS:WBStartup")
)
)
;--- askdir for prefs program ---
(set #prefs-dir
(askdir
(prompt #askdir_prefs)
(help @askdir-help)
(default "SYS:Prefs")
)
)
;--- copy mainprg ---
(copyfiles
(help @copyfiles-help)
(source "DefIcons44")
(dest @default-dest)
)
;--- copy .info file if neccessary ---
(set #info_path (tackon @default-dest "DefIcons44.info") )
(if (not (exists #info_path) )
(copyfiles
(help @copyfiles-help)
(source "DefIcons44.info")
(dest @default-dest)
)
)
;--- copy prefsed ---
(copyfiles
(help @copyfiles-help)
(source "DefIconsPrefs")
(dest #prefs-dir)
)
;--- copy .info file if neccessary ---
(set #info_path (tackon #prefs-dir "DefIconsPrefs.info") )
(if (not (exists #info_path) )
(copyfiles
(help @copyfiles-help)
(source "DefIconsPrefs.info")
(dest #prefs-dir)
)
)
;--- copy deficons.prefs ? ---
(set res (askbool
(prompt #copy_config)
(help @askbool-help)
(default 1)
)
)
(if (= res 1)
(copyfiles
(help @copyfiles-help)
(source "deficons.prefs")
(dest "envarc:")
)
)
;--- copy processfile.rexx
(if (not (exists "REXX:ProcessFile.REXX") )
(copyfiles
(help @copyfiles-help)
(source "ProcessFile.REXX")
(dest "REXX:")
)
)
;--- eof ---