home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / utilities / t.h.e. / rexx / createdefaults.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-01-11  |  1.4 KB  |  62 lines
  1. /*
  2.    $VER: CreateDefaults.rexx 1.0 (11.1.2000) Copyright (c) Nils Görs.
  3.  
  4.    Idea and Betatesting by: Christian Mantik
  5.  
  6.    In association with DefIcons this script will save all selected default-Icons
  7.    displayed with DefIcon on the selected position.
  8.  
  9.    Don't activate DrawerNotification, it's only a hint! ;-)
  10.  
  11.    This script needs CondenseIcon or CreateDefaultIcon.
  12. */
  13.  
  14. CondenseIcon = "C:CondenseIcon"
  15. CI_Options   = "CI"
  16. /*
  17. CondenseIcon = "CreateDefaultIcon"
  18. CI_Options   = ""
  19. */
  20.  
  21. OPTIONS RESULTS
  22.  
  23.  
  24. ADDRESS WORKBENCH
  25.  
  26. LOCKGUI
  27.  
  28. GETATTR OBJECT WINDOWS.ACTIVE
  29. activeWin = result
  30.  
  31.  
  32. GETATTR OBJECT WINDOW.ICONS.SELECTED.COUNT NAME '"'||activeWin||'"'
  33. NumOfSelIcons = result
  34.  
  35. IF NumOfSelIcons = 0 THEN DO
  36.     UNLOCKGUI
  37.     EXIT
  38. END
  39.  
  40. e = 1
  41. do i = 0 to NumOfSelIcons-1
  42.     GETATTR    WINDOW.ICONS.SELECTED.i NAME '"'||activeWin||'"' STEM IconInfo.i
  43.     IconName.e = IconInfo.i.name
  44.     IconPos.e = Y IconInfo.i.TOP X IconInfo.i.LEFT
  45.     e = e + 1
  46. end
  47.  
  48. IconName.0 = e-1
  49.  
  50. DO i = 1 to IconName.0
  51.     IF EXISTS(IconName||".info") ~= 1 THEN DO
  52.         IF RIGHT(activeWin,1) ~= ":" THEN filename = '"'||ActiveWin'/'IconName.i||'"' 
  53.                         ELSE filename = '"'||ActiveWin||IconName.i||'"' 
  54.         ADDRESS COMMAND CondenseIcon filename CI_Options ">NIL:"
  55.         ICON WINDOW '"'||activeWin||'"' '"'||IconName.i||'"' IconPos.i
  56.         ICON WINDOW '"'||activeWin||'"' '"'||IconName.i||'"' SELECT
  57.         MENU WINDOW '"'||activeWin||'"' INVOKE ICONS.SNAPSHOT
  58.     END
  59. end
  60.  
  61. UNLOCKGUI
  62.