home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 April / PCO_04_97.ISO / filesbbs / os2 / tbox3_07.arj / TBOX3_07.ZIP / taskbox / appstart / init.cmd < prev    next >
Encoding:
Text File  |  1997-02-27  |  2.6 KB  |  63 lines
  1. /*  K.A.Ash (c) Copyright 1996                                          */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. '@SET ENDLIBPATH=..' /* setting this should save modifying true libpath */
  7. call RxFuncAdd 'KALoadFuncs', 'KARexx', 'KALoadFuncs'
  8. if \rc then do
  9.     Say 'Failed to load dynamic link library'
  10.     Say 'Attempting install' /* need to add ka_com.dll, ka_crtm.dll to LIBPATH */
  11.       end
  12. else do
  13.     call KALoadFuncs
  14.         if  QueryObjectPath( '<KA_UTILS>', path ) then do
  15.           /* old version so attempt update */
  16.            Say "An Existing object with id <KA_UTILS> was found called " path
  17.            Say "Attempting update."
  18.         end
  19.  end
  20. /*    First create outer menu object id <KA_UTILS>  */
  21. if SysCreateObject('WPFolder', 'AppMenu', DIRECTORY(), 'OBJECTID=<KA_UTILS>', 'f') then do
  22.    '@copy menu.dat 'DIRECTORY()||'\AppMenu > NUL'
  23.    path  = DIRECTORY()||'\AppMenu'
  24.    rc = SysCreateShadow( '<WP_INFO>',   '<KA_UTILS>' )
  25.    rc = SysCreateShadow( '<WP_DRIVES>', '<KA_UTILS>' )
  26.    end
  27. else
  28.    say "Couldn't create object. <KA_UTILS>"
  29.  
  30. /* now create a programs directory and add some files to it */
  31. if SysCreateObject('WPFolder', 'Programs', '<KA_UTILS>', 'OBJECTID=<KA_UTILS_PROGS>', 'f') then do
  32.    ppath = path||'\Programs'
  33.    '@echo MINI=YES> 'ppath||'\menu.dat'
  34.    '@echo ABSTRACT SEPARATOR>>'ppath||'\menu.dat'
  35.    '@echo ABSTRACT "<WP_OS2WIN>" "OS/2 Window" "cmd.exe">>'ppath||'\menu.dat'
  36.    /* create some shadows */
  37.    rc = SysCreateShadow( '<WP_CONFIG>', '<KA_UTILS_PROGS>' )
  38.    rc = SysCreateShadow( '<WP_TOOLS>',  '<KA_UTILS_PROGS>' )
  39.    rc = SysCreateShadow( '<WP_GAMES>',  '<KA_UTILS_PROGS>' )
  40.    /* rc = SysCreateShadow( '<WP_OS2WIN>', '<KA_UTILS_PROGS>' ) */
  41.    /* rc = SysCreateShadow( '<WP_PROMPTS>', '<KA_UTILS_PROGS>' ) */
  42.    end
  43. else
  44.    say "Couldn't create object. <KA_UTILS_PROGS>"
  45.  
  46. /* now do settings */
  47. if SysCreateObject('WPFolder', 'Settings', '<KA_UTILS>', 'OBJECTID=<KA_UTILS_SETS>', 'f')  then do
  48.    ppath = path||'\Settings'
  49.    '@echo MINI=YES> 'ppath||'\menu.dat'
  50.    '@echo OABSTRACT "<WP_FNTPAL>"      >>'ppath||'\menu.dat'
  51.    '@echo OABSTRACT "<WP_LORESCLRPAL>" >>'ppath||'\menu.dat'
  52.    '@echo OABSTRACT "<WP_SCHPAL28>"    >>'ppath||'\menu.dat'
  53.    '@echo ABSTRACT SEPARATOR>>'ppath||'\menu.dat'
  54.    '@echo OABSTRACT "<WP_CONFIG>" "" "">>'ppath||'\menu.dat'
  55.    '@echo OABSTRACT "<KA_UTILS_PROGS>" "Programs" "">>'ppath||'\menu.dat'
  56.    end
  57. else
  58.    say "Couldn't create object. <KA_UTILS_SETS>"
  59.  
  60. /* move icon directory into taskbox directory  */
  61. '@move icons .. >NUL 2>&1'
  62. exit 0
  63.