/* REXX installation script for FileBar */

call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'

currentDirectory = directory()
programName = "\FILEBAR.EXE"
programPath = insert( currentDirectory, programName )
executable = insert( "EXENAME=", programPath )

SysCreateObject("WPProgram","FileBar - Version 2.04","<WP_DESKTOP>",,
                executable, "REPLACE" )

call SysCls

say ""
say ""
say "----------------------------------------------------------------"
say " FileBar - OS/2 Application Launch Facility & Shell Replacement "
say " Written By Eric A. Wolf - Copr. (C) 1995 - All Rights Reserved "
say "----------------------------------------------------------------"
say ""
say " FileBar object successfully created on desktop..."
say ""
say " Start FileBar by double-clicking on the  program object.  And, "
say " for  future  OS/2 sessions, drag  this object to  your startup "
say " folder (found in  OS/2 System Folder) so  that FileBar will be "
say " executed every time you boot OS/2."
say ""
say "Please see the documentation file, FILEBAR.TXT, for instructions"
say "      on how to install FileBar as your replacement shell!"
say "*****************************************************************"
say "* This program is  distributed as Shareware!  You MUST register *"
say "* this  product if you  continue  to  use it.   Please  see the *"
say "* documentation for the complete details.                       *"
say "*****************************************************************"
say ""