home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / ARexx / ToggleIcon.rexx < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  927b  |  46 lines
  1. /*
  2.    $VER: ToggleIcon.rexx 1.1 (6.11.99) Copyright by Nils Görs
  3.  
  4.    Toggle the (un-)select status from the active window icons.
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. ADDRESS WORKBENCH
  10.  
  11. LOCKGUI
  12. GETATTR OBJECT WINDOWS.ACTIVE
  13. activeWin = result
  14.  
  15. GETATTR OBJECT WINDOW.ICONS.UNSELECTED.COUNT NAME '"'||activeWin||'"'
  16. NumOfUnselIcons = result
  17.  
  18. GETATTR OBJECT WINDOW.ICONS.SELECTED.COUNT NAME '"'||activeWin||'"'
  19. NumOfSelIcons = result
  20.  
  21. e = 1
  22. do i = 0 to NumOfUnSelIcons-1
  23.     GETATTR    WINDOW.ICONS.UNSELECTED.i NAME '"'||activeWin||'"' STEM IconInfo.i
  24.     UnselName.e = IconInfo.i.name
  25.     e = e + 1
  26. end
  27. UnselName.0 = e
  28.  
  29. e = 1
  30. do i = 0 to NumOfSelIcons-1
  31.     GETATTR    WINDOW.ICONS.SELECTED.i NAME '"'||activeWin||'"' STEM IconInfo.i
  32.     SelName.e = IconInfo.i.name
  33.     e = e + 1
  34. end
  35. SelName.0 = e
  36.  
  37. do i = 1 to UnSelName.0
  38.     ICON WINDOW '"'||activeWin||'"' UnselName.i SELECT
  39. end
  40.  
  41. do i = 1 to SelName.0
  42.     ICON WINDOW '"'||activeWin||'"' SelName.i UNSELECT
  43. end
  44.  
  45. UNLOCKGUI
  46.