; DEBUG:
(user 2)
(welcome)

(if (= 1 (askbool
           (prompt "Do you want to install language catalogs?")
           (help "not yet")
           (choices "Yes" "No")))
  ((askoptions
     (prompt "Select languages to be installed")
     (help "You're kidding")
     (choices "dansk (Danish)" "Deutsch (German)")
     (default 0))
  )
)

(if (= 1 (askbool
           (prompt
             "Do you want to install the ARexx examples?\n"
             "(Scripts with conflicting filenames\n"
             "will not be installed)")
           (help "hmm...")
           (choices "Yes" "No")))
  (askdir
    (prompt "Select destination")
    (help @askdir-help)
    (default "REXX:")
    (disk)
  )
  (message "Installing AREXX examples...")
)

(if (= 1 (askbool
          (prompt
            "Do you want to customize the ClipTool TOOLTYPES?\n"
            "They can always be modified later, using the\n"
            "Workbench menuitem 'Information'.")
          (help "...")
          (choices "Yes" "No")))
  (
    (set ttpriority
      (asknumber
        (prompt "Enter priority (CX_PRIORITY)")
        (help
          "The priority must be a number between -128 and 127.")
        (range -128 127)
        (default 0)
      )
    )
  )
)


;      "CX_POPKEY"
;      "CX_POPUP"
;      "EMBOSSED"
;      "CREATEICONS"
;      "UNIT"
;      "APPICON"
;      "PORTNAME"


(tooltype (dest "ClipTool.info"))