home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / newlookb.zip / update.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-31  |  3KB  |  107 lines
  1. /* this script automatically  updates some object whose icon has not been
  2.  updated by newlook.cmd */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. /* check working directory                                                   */
  8. wkdir = SysSearchPath('PATH', 'UPDATE.CMD')
  9. if wkdir = '' then do
  10.    say
  11.    say
  12.    call beep 700, 500
  13.    say '  Error!!!'
  14.    say '  UPDATE.CMD must be run in its own directory. Just double click on its icon.'
  15.    say
  16.    say
  17.    '@pause'
  18.    call SysDropFuncs
  19.    exit
  20. end
  21.  
  22. nldir = DIRECTORY()
  23. say
  24. say
  25. if (updQuestion('Information folder'))
  26.    then do
  27.    if ( \ SysSetObjectData('<WP_INFO>', 'ICONRESOURCE=60,PMWP') |,
  28.         \ SysSetObjectData('<WP_INFO>', 'ICONNFILE=1,' || nldir ||,
  29.         '\MORICONS\INFO2.ICO'))
  30.       then call warnmsg 'Information folder'
  31.    end
  32. if (updQuestion('OS/2 System folder'))
  33.    then do
  34.    if ( \ SysSetObjectData('<WP_OS2SYS>', 'ICONRESOURCE=61,PMWP') |,
  35.         \ SysSetObjectData('<WP_OS2SYS>', 'ICONNRESOURCE=1,35,PMWP'))
  36.       then call warnmsg 'OS/2 System folder'
  37.    end
  38. if (updQuestion('System Setup folder'))
  39.    then do
  40.    if ( \ SysSetObjectData('<WP_CONFIG>', 'ICONRESOURCE=59,PMWP') |,
  41.         \ SysSetObjectData('<WP_CONFIG>', 'ICONNRESOURCE=1,15,PMWP'))
  42.        then call warnmsg 'System Setup folder'
  43.    end
  44. if (updQuestion('Command Prompts folder'))
  45.    then do
  46.    if ( \ SysSetObjectData('<WP_PROMPTS>', 'ICONRESOURCE=38,PMWP') |,
  47.         \ SysSetObjectData('<WP_PROMPTS>', 'ICONNRESOURCE=1,37,PMWP'))
  48.       then call warnmsg 'Command Prompts folder'
  49.    end
  50. if (updQuestion('Minimized Window Viewer folder'))
  51.    then do
  52.    if ( \ SysSetObjectData('<WP_VIEWER>', 'ICONRESOURCE=58,PMWP') |,
  53.         \ SysSetObjectData('<WP_VIEWER>', 'ICONNFILE=1,' || nldir ||,
  54.         '\MORICONS\MINVIEW2.ICO'))
  55.       then call warnmsg 'Minimized Window Viewer folder'
  56.    end
  57. if (updQuestion('Shredder'))
  58.    then do
  59.    if ( \ SysSetObjectData('<WP_SHRED>', 'ICONRESOURCE=28,PMWP'))
  60.       then call warnmsg 'Shredder'
  61.    end
  62. if (updQuestion('Network folder'))
  63.    then do
  64.    if ( \ SysSetObjectData('<WP_NETWORK>', 'ICONRESOURCE=33,PMWP') |,
  65.         \ SysSetObjectData('<WP_NETWORK>', 'ICONNRESOURCE=1,9,PMWP'))
  66.       then call warnmsg 'Network folder'
  67.    end
  68. if (updQuestion('Drives folder'))
  69.    then do
  70.    if ( \ SysSetObjectData('<WP_DRIVES>', 'ICONRESOURCE=27,PMWP') |,
  71.         \ SysSetObjectData('<WP_DRIVES>', 'ICONNFILE=1,' || nldir ||,
  72.         '\MORICONS\DRIVES2.ICO'))
  73.       then call warnmsg 'Drives folder'
  74.    end
  75. if (updQuestion('Startup folder'))
  76.    then do
  77.    if ( \ SysSetObjectData('<WP_START>', 'ICONRESOURCE=29,PMWP') |,
  78.         \ SysSetObjectData('<WP_START>', 'ICONNRESOURCE=1,8,PMWP'))
  79.       then call warnmsg 'Startup folder'
  80.    end
  81. call SysDropFuncs
  82. exit
  83.  
  84.  
  85. /* question routine */
  86. updQuestion:
  87. arg folder
  88.    say '  Do you want to update the' folder 'object icon? (y/n)'
  89.    say
  90.    pull reply
  91.    if reply = 'Y' then
  92.       return 1
  93.    else
  94.       return 0
  95. /* end updQuestion */
  96.  
  97.  
  98. /* warning routine */
  99. warnmsg:
  100. arg msg
  101.    call beep 500 300
  102.    say
  103.    say '  Warning!!! Cannot set' msg 'folder new icon.'
  104.    say
  105.    pause
  106. return
  107.