home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / AVIEW142r.lha / AView1.42r / Install / AView.install next >
Encoding:
Text File  |  1997-11-17  |  21.2 KB  |  584 lines
  1. ; $VER: AView.install 1.41 (10.11.97)
  2. ; Install script for AView (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. (SET #ApplicationName "AView")
  7. (SET #ApplicationDir "sys:tools")
  8. (SET #ApplicationDir1 "sys:utilities")
  9. (SET #ApplicationDir2 "work:tools")
  10. (SET #ApplicationDir3 "tools:")
  11. (SET #ApplicationDir4 "work:utilities")
  12. (SET #ArchiveDir "/")
  13. (SET #Language -1)
  14. (SET #Documents -1)
  15. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  16.  
  17. ;=============================================================================
  18. ; German strings
  19.  
  20. (IF (= @language "deutsch")
  21. (
  22. (SET default_lang 2)
  23.  
  24. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  25. (SET #bad-installer
  26. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  27.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  28.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  29. ))
  30.  
  31. (SET #App-InstallMsg
  32. (CAT "\n%s Installationsskript.\n\n"
  33.         "Dieses Skript installiert oder deinstalliert\n"
  34.         "%s auf Ihrem Amiga.\n\n"
  35.         "Lesen Sie die Anleitungsdatei für weitere Informationen\n"
  36.         " über den Vertrieb von %s.\n\n"
  37.         "%s © 1995-97 Guido Mersmann\n"
  38.         "Alle Rechte reserviert."
  39. ))
  40. (SET #App-MainMode "Wählen Sie den gewüschten Vorgang!")
  41.  
  42. (SET #App-Where
  43. (CAT "Wo möchten Sie %s installieren ?\n"
  44.         "(Ein Verzeichnis wird angelegt)"
  45. ))
  46.  
  47. (SET #App-Update
  48. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  49.         " Verzeichnis.\n\n Wenn Sie fortfahren,"
  50.         " bestätigen Sie, daß Sie die alte %s-Installation"
  51.         " mit der neuesten Version überschreiben wollen.\n\n"
  52.         "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!"
  53. ))
  54.  
  55. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  56. (SET #App-Main-help
  57. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  58.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  59.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  60.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  61.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  62.      " weiteren Speicher sparen."
  63. ))
  64.  
  65. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  66.  
  67. (SET #App-Language-help
  68. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  69.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  70.          " nur die Sprachen anwählen, die sie benötigen"
  71.          " Haken Sie also einfach die Sprachen ab, die Sie"
  72.          " Ihrem System zugänglich machen wollen."
  73.           @askoptions-help
  74. ))
  75.  
  76. (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  77.  
  78. (SET #Startup-DefIcons (CAT "\nWollen Sie AVDeficons in die user-startup "
  79.                             "eintragen?\n\nAVDeficons ist ein kleines Tool, "
  80.                             "das es Ihnen erlaubt Piktogramme für Dateien "
  81.                             "zu definieren, die kein eigenes Piktogramm haben. "
  82.                             "Sie können für jeden Dateityp, den AView kennt, "
  83.                             "ein eigenes Piktogramm zuweisen und vieles mehr!"))
  84.  
  85. (SET #startup-prompt    "\n\nJetzt werden für %s folgende Eintragungen in die S:User-Startup gemacht:\n\n%s")
  86.  
  87. (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"")
  88. ;------- DEINSTALL STRINGS
  89. (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n")
  90. (SET #App-Install "%s Installieren")
  91. (SET #App-DeInstall "%s Deinstallieren")
  92. (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position")
  93. (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!")))
  94. (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!")
  95. ;=============================================================================
  96. ; English strings
  97.  
  98. (IF (<> @language "deutsch")
  99. (
  100. (SET default_lang 4)
  101.  
  102. (SET #bad-kick "You must have at least Workbench 2.0+")
  103. (SET #bad-installer
  104. (CAT "You have an old version of the program 'Installer' "
  105.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  106.      "Please check your configuration!\n"
  107. ))
  108.  
  109. (SET #App-InstallMsg
  110. (CAT "\n\n%s Installation Script.\n\n"
  111.         "This script installs %s on your Amiga.\n\n"
  112.         "Read the guide file for more information\n"
  113.         " on the distribution of %s.\n\n"
  114.         "%s © 1995-97 Guido Mersmann\n"
  115.         "All rights reserved."
  116. ))
  117. (SET #App-MainMode "Please choose mode:")
  118.  
  119. (SET #App-Where
  120. (CAT "Where would you like to install %s ?\n"
  121.         "(A drawer will be created)"
  122. ))
  123.  
  124. (SET #App-Update
  125. (CAT "\n\nA %s drawer does already exist in the selected "
  126.         " directory.\n\n By selecting \"Proceed\", you"
  127.         " indicate that you want to update the %s"
  128.         " installation with the most recent version.\n\n"
  129.         "Several %s specific files will be overwritten!"
  130. ))
  131.  
  132. (SET #App-Main "Which %s version should be installed ?")
  133. (SET #App-Main-help
  134. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  135.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  136.      " Special OS3.0+ functions are used to save more memory."
  137. ))
  138.  
  139. (SET #App-Language "Which languages should be installed ?")
  140. (SET #App-Language-help
  141. (CAT "\nThe Amiga can be operated in many different"
  142.           " languages."
  143.           "To reduce the amount of space consumed by the"
  144.           " language files, you can select to have only the"
  145.           " files of specific languages copied.\n\n"
  146.           "Simply check the boxes of the languages you wish"
  147.           " to have available on your system.\n\n"
  148.           @askoptions-help
  149. ))
  150.  
  151. (SET #App-Docs "Which Amiga-guide files should be installed ?")
  152.  
  153. (SET #Startup-DefIcons (CAT "\nDo you want to install AVDeficons?\n\n"
  154.                         "AVDeficons is a little programm that allows to "
  155.                         "specify icons for each AView file type."))
  156.  
  157. (SET #startup-prompt    "\n\nSome lines need to be added to S:User-Startup for %s\n\n%s")
  158.  
  159. (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).")
  160. ;--------- DEINSTALLATION STRINGS
  161. (SET #App-DeInstallWhere "Where is the location of %s ?\n")
  162. (SET #App-Install "Install")
  163. (SET #App-DeInstall "Deinstall")
  164. (SET #bad-DeInstall "There is no %s installation at the specified position!")
  165. (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?")
  166. (SET #Deinstall-Done "\n%s is now deinstalled.")
  167. ;---------
  168. ))
  169. ;----------------------------------------------------------------------------
  170. ;----------------------------------------------------------------------------
  171. ;       P_Requirements
  172. ;----------------------------------------------------------------------------
  173. ;----------------------------------------------------------------------------
  174. (PROCEDURE P_Requirements
  175. ; Workbench 37 or better required
  176. (IF (< (/ (getversion) 65536) 37)
  177. (
  178.   (abort #bad-kick)
  179. )
  180. )
  181. ; Installer 42.9 or better required
  182. (if (< @installer-version 2752521)
  183. (
  184. (abort #bad-installer)
  185. )
  186. ) ;if
  187. ) ;PROCDURE
  188. ;----------------------------------------------------------------------------
  189. ;----------------------------------------------------------------------------
  190. ;       P_DeInstall
  191. ;----------------------------------------------------------------------------
  192. ;----------------------------------------------------------------------------
  193. (PROCEDURE P_DeInstall #InstallerMode
  194.  
  195. (SET #Dummy             (ASKCHOICE
  196.                         (PROMPT #App-MainMode)
  197.                         (HELP @askchoice-help)
  198.                         (CHOICES
  199.                                 (#App-Install #ApplicationName)
  200.                                 (#App-Deinstall #ApplicationName)
  201.                         )
  202.                         ;(DEFAULT #Documents)
  203.                         )
  204. )
  205. ) ;PROCDURE
  206. ;----------------------------------------------------------------------------
  207. ;----------------------------------------------------------------------------
  208. ;       GetApplicationDir
  209. ;----------------------------------------------------------------------------
  210. ;----------------------------------------------------------------------------
  211. (PROCEDURE P_GetApplicationDir
  212. (SET #Dummy #ApplicationDir)
  213. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  214. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  215. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  216. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  217.  
  218. (SET #ApplicationDir
  219.         (TACKON
  220.                 (ASKDIR
  221.                         (PROMPT (#App-Where #ApplicationName))
  222.                         (HELP @askdir-help)
  223.                         (default #Dummy)
  224.                 )
  225.                 #ApplicationName
  226.         )
  227. )
  228. (SET @default-dest #ApplicationDir)
  229. ) ;PROCEDURE
  230. ;----------------------------------------------------------------------------
  231. ;----------------------------------------------------------------------------
  232. ;       GetDeinstallDir
  233. ;----------------------------------------------------------------------------
  234. ;----------------------------------------------------------------------------
  235. (PROCEDURE P_GetDeInstallDir
  236. (SET #Dummy #ApplicationDir)
  237. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  238. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  239. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  240. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  241.  
  242. (SET #ApplicationDir
  243.                 (ASKDIR
  244.                         (PROMPT (#App-DeInstallWhere #ApplicationName))
  245.                         (HELP @askdir-help)
  246.                         (default #Dummy)
  247.                 )
  248. )
  249.          (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName)))
  250.  
  251.         (Select #Dummy
  252.          (abort (#bad-DeInstall #ApplicationName))
  253.          (SET #Applicationdir (TACKON #Applicationdir "/"))
  254.          (SET #Applicationdir (TACKON #Applicationdir #ApplicationName))
  255.         ) ;Select
  256. (SET @default-dest #ApplicationDir)
  257.  
  258. ) ;PROCEDURE
  259. ;----------------------------------------------------------------------------
  260. ;----------------------------------------------------------------------------
  261. ;       Ask for Catalogs
  262. ;----------------------------------------------------------------------------
  263. ;----------------------------------------------------------------------------
  264. (PROCEDURE P_AskCatalogs #Language
  265.  
  266. (SET #Dummy     (ASKOPTIONS
  267.                 (PROMPT #App-Language)
  268.                 (HELP #App-Language-help)
  269.                 (CHOICES
  270.                         "English"
  271.                         "Deutsch"
  272.                         "Français")
  273.                 (DEFAULT #Language)
  274.         )
  275. )
  276. ) ;PROCEDURE
  277. ;----------------------------------------------------------------------------
  278. ;----------------------------------------------------------------------------
  279. ;       Copy Selected Catalogs
  280. ;----------------------------------------------------------------------------
  281. ;----------------------------------------------------------------------------
  282. (PROCEDURE P_CopyCatalogs #Language
  283. (SET n 0)
  284. (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs"))
  285. (SET #SourceRoot (TACKON #ArchiveDir "Catalogs"))
  286. (MAKEDIR #DestinationRoot)
  287.  
  288. (while (< n 3)
  289.         (SET #Dummy (SELECT n "english" "deutsch" "français"))
  290.         (
  291.                 (IF (IN #Language n)
  292.                 (
  293.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  294.                         (COPYFILES
  295.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  296.                                 (DEST (TACKON #DestinationRoot #Dummy))
  297.                                 (HELP @copyfiles-help)
  298.                                 (ALL)
  299.                         )
  300.                 )
  301.                 )
  302.         )
  303. (SET n (+ n 1))
  304. )
  305. ) ;PROCEDURE
  306. ;----------------------------------------------------------------------------
  307. ;----------------------------------------------------------------------------
  308. ;       Ask for docs
  309. ;----------------------------------------------------------------------------
  310. ;----------------------------------------------------------------------------
  311. (PROCEDURE P_AskDocs #Documents
  312. (SET #Dummy             (ASKOPTIONS
  313.                         (PROMPT #App-Docs)
  314.                         (HELP @askoptions-help)
  315.                         (CHOICES
  316.                                 "english"
  317.                                 "deutsch"
  318.                         )
  319.                         (DEFAULT #Documents)
  320.                   )
  321. )
  322. ) ;PROCEDURE
  323. ;----------------------------------------------------------------------------
  324. ;----------------------------------------------------------------------------
  325. ;       Copy docs
  326. ;----------------------------------------------------------------------------
  327. ;----------------------------------------------------------------------------
  328. (PROCEDURE P_CopyDocs #Documents
  329. (SET n 0)
  330. (SET #DestinationRoot (TACKON #ApplicationDir "Docs"))
  331. (SET #SourceRoot (TACKON #ArchiveDir "Docs"))
  332. (MAKEDIR #DestinationRoot)
  333.  
  334. (while (< n 2)
  335.         (SET #Dummy (SELECT n
  336.                 "english"
  337.                 "deutsch"
  338.         )
  339.         )
  340.         (
  341.                 (IF (IN #Documents n)
  342.                 (
  343.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  344.                         (COPYFILES
  345.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  346.                                 (DEST (TACKON #DestinationRoot #Dummy))
  347.                                 (HELP @copyfiles-help)
  348.                                 (INFOS)
  349.                                 (ALL)
  350.                         )
  351.                 )
  352.                 )
  353.         )
  354. (SET n (+ n 1))
  355. )
  356. ) ;PROCEDURE
  357. ;----------------------------------------------------------------------------
  358. ;----------------------------------------------------------------------------
  359. ;       Copy_Dir (Dir)
  360. ;----------------------------------------------------------------------------
  361. ;----------------------------------------------------------------------------
  362. (PROCEDURE P_CopyDir #Dummy
  363.  
  364. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy))
  365. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  366. (MAKEDIR #DestinationRoot)
  367.  
  368.                    (COPYFILES
  369.         (SOURCE #SourceRoot)
  370.         (DEST #DestinationRoot)
  371.         (HELP @copyfiles-help)
  372.         (OPTIONAL <force>)
  373.         (ALL)
  374.         (INFOS)
  375.                    )
  376. ) ;PROCEDURE
  377. ;----------------------------------------------------------------------------
  378. ;----------------------------------------------------------------------------
  379. ;       Copy_File (Name)
  380. ;----------------------------------------------------------------------------
  381. ;----------------------------------------------------------------------------
  382. (PROCEDURE P_CopyFile #Dummy
  383.  
  384. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) 
  385. (
  386.                    (COPYFILES
  387.         (SOURCE (TACKON #ArchiveDir #Dummy))
  388.         (DEST #ApplicationDir)
  389.         (HELP @copyfiles-help)
  390.         (OPTIONAL <force>)
  391.         (ALL)
  392.         (INFOS)
  393.                    )
  394. )
  395. ) ;If
  396. ) ;PROCEDURE
  397. ;----------------------------------------------------------------------------
  398. ;----------------------------------------------------------------------------
  399. ;       P_Update
  400. ;----------------------------------------------------------------------------
  401. ;----------------------------------------------------------------------------
  402. (PROCEDURE P_Update
  403. (if (= (exists #ApplicationDir) 2)
  404.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  405. )
  406. ) ;PROCEDURE
  407. ;----------------------------------------------------------------------------
  408. ;----------------------------------------------------------------------------
  409. ;       P_AskBinary
  410. ;----------------------------------------------------------------------------
  411. ;----------------------------------------------------------------------------
  412. (PROCEDURE P_AskBinary
  413. (set #Dummy (/ (getversion) 65536))
  414.  
  415. (if (= #Dummy 37) (set #Binary 0))
  416. (if (= #Dummy 38) (set #Binary 1))
  417. (if (>= #Dummy 39) (set #Binary 2))
  418.  
  419. (set #Binary (askchoice
  420.         (prompt (#App-Main #ApplicationName))
  421.         (help (#App-Main-help #ApplicationName))
  422.         (choices
  423.         "OS2.0+"
  424.                         "OS2.1+"
  425.                         "OS3.0+"
  426.                         )
  427.         (default #Binary)
  428.             )
  429. )
  430. ) ;PROCEDURE
  431. ;----------------------------------------------------------------------------
  432. ;----------------------------------------------------------------------------
  433. ;       P_CopyBinary
  434. ;----------------------------------------------------------------------------
  435. ;----------------------------------------------------------------------------
  436. (PROCEDURE P_CopyBinary #Dummy
  437.  
  438. (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30")))
  439. (copyfiles
  440.         (source (tackon #ArchiveDir #BinaryName) (infos))
  441.         (dest #ApplicationDir)
  442.         (newname #Dummy)
  443.         (help @copyfiles-help)
  444.         (optional <force>)
  445. )
  446. ) ;PROCEDURE
  447. ;----------------------------------------------------------------------------
  448. ;----------------------------------------------------------------------------
  449. ;       P_KeyFile
  450. ;----------------------------------------------------------------------------
  451. ;----------------------------------------------------------------------------
  452. (PROCEDURE P_KeyFile
  453.  
  454. (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile))
  455.  
  456. (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile"))
  457. )
  458. ) ;PROCEDURE
  459. ;----------------------------------------------------------------------------
  460. ;----------------------------------------------------------------------------
  461. ;       P_CopyArchiveIcon
  462. ;----------------------------------------------------------------------------
  463. ;----------------------------------------------------------------------------
  464. (PROCEDURE P_CopyArchiveIcon
  465.                    (COPYFILES
  466.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  467.         (DEST (TACKON #ApplicationDir "/"))
  468.         (HELP @copyfiles-help)
  469.                    )
  470. ) ;PROCEDURE
  471. ;----------------------------------------------------------------------------
  472. ;----------------------------------------------------------------------------
  473. ;       P_AskBool
  474. ;----------------------------------------------------------------------------
  475. ;----------------------------------------------------------------------------
  476. (PROCEDURE P_AskBool #dummy
  477.  (SET #dummy (ASKBOOL      (prompt #dummy)
  478.            (help @askbool-help)
  479.            (default 1)
  480.              )
  481.  )
  482. ) ;PROCEDURE
  483. ;----------------------------------------------------------------------------
  484. ;----------------------------------------------------------------------------
  485. ;       MAIN
  486. ;----------------------------------------------------------------------------
  487. ;----------------------------------------------------------------------------
  488. (P_Requirements)
  489. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  490. (SET #InstallerMode (P_DeInstall))
  491. (welcome)
  492. ;-----------------------------------------------
  493. (IF (= #InstallerMode "0")
  494. (
  495. ;-----------------------------------------------
  496.  (SET #ApplicationDir (P_GetApplicationDir))
  497.  
  498. (COMPLETE 1)
  499.  (P_Update)
  500.  (SET #Binary (P_AskBinary))
  501. (COMPLETE 2)
  502.  (SET #Language (P_AskCatalogs #Language))
  503. (COMPLETE 3)
  504.  (SET #Documents (P_AskDocs #Documents))
  505. (COMPLETE 4)
  506.  
  507.  (SET #AVDeficons (P_AskBool #startup-deficons))
  508.  
  509. ;***** Delete old Data and Prefs
  510. (MAKEDIR #ApplicationDir)
  511. (MAKEDIR (TACKON #ApplicationDir "Prefs"))
  512. (MAKEDIR (TACKON #ApplicationDir "Deficons"))
  513. (MAKEDIR (TACKON #ApplicationDir "DefIcons/Drawer"))
  514. (MAKEDIR (TACKON #ApplicationDir "DefIcons/Disk"))
  515. (MAKEDIR (TACKON #ApplicationDir "DefIcons/File"))
  516.  
  517. (COMPLETE 10)
  518.  (P_CopyBinary #ApplicationName)
  519. (COMPLETE 20)
  520.  (P_CopyBinary "AViewPrefs")
  521. (COMPLETE 30)
  522.  (P_CopyCatalogs #Language)
  523. (COMPLETE 40)
  524.  (P_CopyDocs #Documents)
  525. (COMPLETE 60)
  526.  (P_CopyDir "Data")
  527.  (P_CopyDir "libs")
  528.  (P_Keyfile)
  529. (COMPLETE 70)
  530.  (P_CopyFile "AVDefIcons")
  531.  (P_CopyArchiveIcon)
  532.  (P_CopyFile "AViewPrefs.info")
  533.  (P_CopyFile "Docs.info")
  534.  (P_CopyFile "Warning!!!")
  535.  (P_CopyFile "Warnung!!!")
  536. (COMPLETE 80)
  537.  
  538. ;----- User-Startup
  539.  ((SET #dummy (cat "Path add Path " #ApplicationDir))
  540.    (IF (= #AVDeficons 1)
  541.     ((SET #dummy (CAT #dummy "\nAVDeficons")))
  542.    )
  543.  )
  544. (STARTUP #ApplicationName
  545.       (HELP @startup-help)
  546.       (PROMPT (#startup-prompt #ApplicationName #dummy))
  547.       (COMMAND #dummy)
  548. )
  549. ;-----
  550. (DELETE (TACKON #ApplicationDir "Data.info"))
  551. (DELETE (TACKON #ApplicationDir "Libs.info"))
  552. (run "avail Flush")
  553. (COMPLETE 100)
  554. (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir))
  555. (exit (QUIET))
  556. ;-----------------------------------------------
  557. )) ;IF #InstallerMode = 0
  558. ;-----------  Deinstallation -------------------
  559. (IF (= #InstallerMode "1") (
  560.  
  561. (SET #ApplicationDir (P_GetDeInstallDir))
  562.  
  563.       (SET #dummy (cat "Path REMOVE Path " #ApplicationDir))
  564.       (run #dummy)
  565. (COMPLETE 30)
  566.  
  567. (STARTUP #ApplicationName
  568.       (HELP @startup-help)
  569.       (PROMPT (#startupRemove-prompt #ApplicationName))
  570. )
  571. (COMPLETE 80)
  572.  
  573. (DELETE #ApplicationDir (optional FORCE) (ALL))
  574. (DELETE (Cat #ApplicationDir ".info"))
  575. (COMPLETE 100)
  576.  
  577. (Message (#Deinstall-Done #ApplicationName))
  578. (exit (QUIET))
  579.  
  580. ;-----------------------------------------------
  581. )) ;IF #InstallerMode = 1
  582. ;-----------------------------------------------
  583.  
  584.