home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / System / T.H.E. / REXX / SelPattIcons.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-11  |  1KB  |  55 lines
  1. /*
  2.    $VER: SelPattIcons.rexx 1.0 (11.1.2000) Copyright (c) Nils Görs.
  3.  
  4.   Select the Icons that fit with the given pattern.
  5.  
  6.   This scripts need rexxtricks.library
  7. */
  8.  
  9. options results
  10.  
  11. PARSE ARG Pattern
  12.  
  13. IF Pattern = "" THEN DO
  14.     id='req'pragma('id')
  15.     address command 'rxset' id '`requeststring TITLE="SelectPattern" BODY="Type Pattern to select icons"`'
  16.     IF rc = 5 THEN EXIT
  17.     Pattern=getclip(id)
  18.     call setclip(id,'')
  19. END
  20.  
  21. address WORKBENCH
  22.  
  23. if Pattern = "" THEN EXIT
  24.  
  25.    IF ~SHOW(LIBRARIES,'rexxtricks.library') THEN
  26.       IF ~ADDLIB('rexxtricks.library',9,-30,38) THEN
  27.          quit('Cannot open rexxtricks.library!',10)
  28.  
  29. LOCKGUI
  30.  
  31. GETATTR OBJECT WINDOWS.ACTIVE
  32. activeWin = result
  33.  
  34. GETATTR OBJECT WINDOW.ICONS.UNSELECTED.COUNT NAME '"'||activeWin||'"'
  35. NumOfUnselIcons = result
  36.  
  37.  
  38. e = 1
  39. do i = 0 to NumOfUnSelIcons-1
  40.     GETATTR    WINDOW.ICONS.UNSELECTED.i NAME '"'||activeWin||'"' STEM IconInfo.i
  41.     UnselName.e = IconInfo.i.name
  42.     e = e + 1
  43. end
  44. UnselName.0 = e -1
  45.  
  46. do i = 1 to UnSelName.0
  47.     IF UnSelName.i ~= "" THEN DO
  48.         IF RXTR_MATCHPATTERN(UnSelName.i,Pattern,NOCASE) = 1 THEN DO
  49.             ICON WINDOW '"'||activeWin||'"' UnselName.i SELECT
  50.         END
  51.     END
  52. end
  53.  
  54. UNLOCKGUI
  55.