home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / amiga / chiputil / rmicon.lha / RmIcon / rexx / RmIconFR.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2001-06-12  |  951 b   |  49 lines
  1. /*
  2. **   $VER: RmIcon 0.2 (12.06.2001)
  3. **
  4. **   Ce programme efface les ic⌠nes sΘlectionnΘs de la fenΩtre
  5. **   active du WB SANS REQUETE !
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. /* On recherche la fenΩtre active du WB. */
  11.  
  12. ADDRESS WORKBENCH
  13. GETATTR WINDOWS.ACTIVE VAR path
  14.  
  15. /* Si la fenΩtre sΘlectionnΘe est le WB, on quitte. */
  16.  
  17. IF path="root" THEN EXIT
  18.  
  19. /* On compte le nombre d'ic⌠nes sΘlectionnΘes. */
  20.  
  21. OPTIONS FAILAT 20
  22. GETATTR WINDOW.ICONS.SELECTED.COUNT NAME '"'||path||'"' VAR n
  23.  
  24. /* S'il n'y en a pas, on quitte. */
  25.  
  26. IF RC>=10 THEN EXIT
  27.  
  28. /* On prend les noms des ic⌠nes sΘlectionnΘes. */
  29.  
  30. ADDRESS WORKBENCH
  31. OPTIONS FAILAT 10
  32. GETATTR WINDOW.ICONS.SELECTED NAME '"'||path||'"' STEM ICONS
  33.  
  34. /* Ces commandes effacent les ic⌠nes sΘlectionnΘes. */
  35.  
  36. DO i=1 TO n
  37.    j=i-1
  38.    file=icons.j.name
  39.    file=path||file||".info"
  40.    ADDRESS COMMAND
  41.    'DELETE >NIL: "'file'"'
  42. END
  43.  
  44. /* On met α jour la fenΩtre active. */
  45.  
  46. ADDRESS WORKBENCH
  47. MENU WINDOW ACTIVE INVOKE WINDOW.UPDATE
  48.  
  49.