Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/alib/d9xx/d915/screenselect.lha/ScreenSelect/ScreenSelect.Install

Text File | 1993-10-04 | 5KB | 262 lines

(set #screenselectcopyhelp (cat
    "This is the directory you want ScreenSelect program "
    "to be installed. If you want ScreenSelect always to start "
    "in boot up process then you should install it to "
    "WBStartup-directory.") )


(set #tooltypeshelp (cat
    "These are the commodity tooltypes for "
    "ScreenSelect. If you have made the "
    "installation to WBStartup then you should "
    "set the DONOTWAIT tooltype.\n") )

(set #screenselectprefscopyhelp (cat
    "This is the directory you want ScreenSelect "
       "Preferences setting program to be installed. "
       "For maximum consistency with system preferences "
       "programs you should install it to Prefs-directory.") )

(set #doccopyhelp (cat
    "Select documentation files for ScreenSelect and "
    "ScreenSelectPrefs programs you want to be installed." )
)

(set #stickyask (cat
    "Do you want to install StickySelect?" )
)

(set ver (/ (getversion "workbench.library") 65536) )


(complete 0)

(set #destination
        (askdir
            (prompt "Where to install ScreenSelect program?")
            (help #screenselectcopyhelp )
            (default "SYS:WBStartup/")
        )
)

(set @default-dest #destination)

(message "Copy ScreenSelect to " #destination " directory?\n")

(copyfiles (source "ScreenSelect")
           (dest #destination)
           (infos)
)

(complete 30)


(set #tooltypeopts
        (askoptions
            (prompt "Which tooltypes you want to set for ScreenSelect\n")
            (help #tooltypeshelp)
            (choices "CX_POPUP" "CX_PRI" "CX_POPKEY")
            (default 0)
        )
)

(if (IN #tooltypeopts 0)
        (tooltype
            (dest
                    (tackon
                        #destination "ScreenSelect")
                    )
            (settooltype "CX_POPUP" "")
            (noposition) ) )

(if (IN #tooltypeopts 1)
        (tooltype
            (dest
                    (tackon
                        #destination "ScreenSelect")
                    )
            (settooltype "CX_PRI"
                    (cat
                            (asknumber
                                    (prompt "ScreenSelect commodity priority?")
                                    (help "")
                                    (range -127 127)
                                    (default 0)
                            )
                    )
            )
            (noposition)
        )
)

(if (IN #tooltypeopts 2)
        (tooltype
            (dest (tackon #destination "ScreenSelect") )
            (settooltype "CX_POPKEY"
                    (askstring
                        (prompt "ScreenSelect popkey string?")
                        (help
                                (cat
                                    "You can also set popkey string with\n"
                                    "ScreenSelectPrefs program.")
                                )
                        (default "shift esc")
                    )
            )
            (noposition)
        )
)

(complete 50)

(set #prefs
        (askdir
            (prompt "Where to install ScreenSelectPrefs program?")
            (help #screenselectprefscopyhelp)
            (default "SYS:Prefs/")
        )
)

(message "Copy ScreenSelectPrefs to " #prefs " directory?\n")

(copyfiles (source "ScreenSelectPrefs")
           (dest #prefs)
           (infos) )

(set #prefsinrightplace (IN (exists "SYS:Prefs/ScreenSelectPrefs" (noreq)) 0))

(if (= 0 #prefsinrightplace)
        (tooltype (dest (tackon #destination "ScreenSelect"))
                  (settooltype "PREFSPROGRAM" (tackon #prefs "ScreenSelectPrefs"))
                  (noposition)
        )
)

(complete 70)

(if (= 1 (askbool
            (prompt #stickyask)
            (help "")
            (default 1)
         )
    )
    (
        (set #stickydir
            (askdir
                (prompt "Where to install StickySelect program?")
                (help "")
                (default "C:")
            )
        )

        (copyfiles
            (source "StickySelect/StickySelect")
            (dest #stickydir)
            (infos)
        )
    )
)


(complete 80)

(set #docfiles
        (askoptions
            (prompt "Which document files you want to install?\n")
            (help #doccopyhelp)
            (choices "ScreenSelect.doc   - ASCII document."
                     "ScreenSelect.guide - AmigaGuide document."
                     "ScreenSelect.dvi   - Document in DVI format."
                     )
            (default 2)
        )
)

(if (= 0 #docfiles)
        (message "No document files installed!\n")
        (
            (set #docdir
                    (askdir
                        (prompt "Where to install document files?")
                        (help "" )
                        (default "WORK:")
                    )
            )

            (complete 85)

            (if (IN #docfiles 0)
                (
                    (copyfiles
                            (source "Docs/ScreenSelect.doc")
                               (dest #docdir)
                               (infos)

                    )

                    (set #docfilename
                            (tackon #docdir "ScreenSelect.doc")
                    )

                    (if (> ver 38)
                            (tooltype
                                (dest #docfilename)
                                (setdefaulttool "MultiView")
                                (noposition)
                            )
                            (tooltype
                                (dest #docfilename)
                                (setdefaulttool "More")
                                (noposition)
                            )
                    )
                )
            )

            (complete 90)

            (if (IN #docfiles 1)
                (
                    (copyfiles
                            (source "Docs/ScreenSelect.guide")
                               (dest #docdir)
                               (infos)

                    )

                    (set #docfilename
                            (tackon #docdir "ScreenSelect.guide")
                    )

                    (if (> ver 38)
                            (tooltype
                                (dest #docfilename)
                                (setdefaulttool "MultiView")
                                (noposition)
                            )
                            (tooltype
                                (dest #docfilename)
                                (setdefaulttool "AmigaGuide")
                                (noposition)
                            )
                    )
                )
            )

            (complete 95)

            (if (IN #docfiles 2)
                    (copyfiles
                            (source "Docs/ScreenSelect.dvi")
                               (dest #docdir)
                               (infos)

                    )
            )
        )
)


(complete 100)