; $VER:Install script for BlocNotes

(set Need2 "\nBlocNotes need at least OS2.04")
(if (< (/ (getversion) 65536) 37)
  (abort Need2)
)

(set CatHelp "You can have blocnotes localized to a particular language.")
(set POPKEYHelp "With this hotkey you can popup Blocnotes main window.")
(set NOTEKEYHelp "With this hotkey you can open a new note.")
(set DIRHelp "If you specify a path, a new directory called NOTES will be created in it.\nThe notes will be stored in this directory.")
(set SCNHelp "With this library installed, Blocnotes have a better control over public screen.\nIt's recommended to install it.")
(set ASKDIRHelp "If you install blocnotes in SYS:WBStartup (default), it will be launched automatically at every startup.\nIf you want only to test BN, copy it in another place, changing the destination directory")
(set REXXHelp "These script enhance BlocNotes with new or more particular functions")
(set GUIDEHelp "This is the doc of blocnotes in .guide format")

(set MySou (pathonly @icon) )

(set CompleteDest
   (askdir
      (prompt "\nSelect a path where to install BlocNotes main file")
      (help ASKDIRHelp)
      (default "SYS:WBStartup")
   )
)

(copyfiles
   (prompt "Coping Blocnotes")
   (source MySou)
   (infos)
   (dest CompleteDest)
   (choices "BlocNotes")
)

; Guide file.
; *************************
(set GuideDest
   (askdir
      (prompt "\nSelect a directory where to install BlocNotes.guide file.\n")
      (help @askdir-help)
      (default "AMIGAGUIDE:")
   )
)
(copyfiles
   (prompt "Coping Blocnotes.guide")
   (help GUIDEHelp)
   (source MySou)
   (infos)
   (dest GuideDest)
   (confirm)
   (choices "BlocNotes.guide")
)

; Rexx files
; *************************
(set RexxDest
   (askdir
      (prompt "\nSelect a directory where to copy arexx scipts.\n")
      (help @askdir-help)
      (default "REXX:")
   )
)

(copyfiles
   (prompt "Coping arexx scripts")
   (help REXXHelp)
   (source MySou)
   (dest RexxDest)
   (confirm)
   (choices "scroller.rexx" "shownote.rexx")
)

(copylib
   (prompt "Coping screennotify.library")
   (help SCNHelp)
   (source (tackon MySou "libs/screennotify.library"))
   (dest "LIBS:")
   (optional nofail)
   (confirm)
)

(set LangBit
   (askoptions
      (prompt "\nDo yo want to install languages")
      (help CatHelp)
      (choices "italiano")
      (default 1)
   )
)
(if (IN LangBit 0)
   (copyfiles
      (prompt "Coping the catalog 'italiano'")
      (help @copyfiles-help)
      (source (tackon MySou "catalogs/italiano/blocnotes.catalog") )
      (dest "locale:catalogs/italiano/")
   )
)

(set DestName (tackon CompleteDest "BlocNotes"))

(Set Hotkey (askstring
            (prompt "Insert Hotkey for interface popup")
            (default "control alt n")
            (help POPKEYHelp)
        )
)
(tooltype
   (settooltype "CX_POPKEY" HotKey)
   (dest DestName)
)

(Set Notekey (askstring
            (prompt "Insert Hotkey for notes popup")
            (default "control escape")
            (help NOTEKEYHelp)
        )
)
(tooltype
   (settooltype "NOTESKEY" NoteKey)
   (dest DestName)
)

(set Direct
   (askdir
      (prompt "\nSelect a path in which a directory called NOTES will be created.\n(The notes will be stored here.)")
      (help DIRHelp)
      (default "SYS:")
   )
)

(makedir (tackon Direct "NOTES"))

(tooltype
   (settooltype "DIRECTORY" (tackon Direct "NOTES"))
   (dest DestName)
)


(message "You can run the program and change other parameters directly in it.\nPlease read documentation for other options")

(set @default-dest CompleteDest )
        (exit)