home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
System
/
T.H.E.
/
REXX
/
CreateDefaults.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
2000-01-11
|
1KB
|
62 lines
/*
$VER: CreateDefaults.rexx 1.0 (11.1.2000) Copyright (c) Nils Görs.
Idea and Betatesting by: Christian Mantik
In association with DefIcons this script will save all selected default-Icons
displayed with DefIcon on the selected position.
Don't activate DrawerNotification, it's only a hint! ;-)
This script needs CondenseIcon or CreateDefaultIcon.
*/
CondenseIcon = "C:CondenseIcon"
CI_Options = "CI"
/*
CondenseIcon = "CreateDefaultIcon"
CI_Options = ""
*/
OPTIONS RESULTS
ADDRESS WORKBENCH
LOCKGUI
GETATTR OBJECT WINDOWS.ACTIVE
activeWin = result
GETATTR OBJECT WINDOW.ICONS.SELECTED.COUNT NAME '"'||activeWin||'"'
NumOfSelIcons = result
IF NumOfSelIcons = 0 THEN DO
UNLOCKGUI
EXIT
END
e = 1
do i = 0 to NumOfSelIcons-1
GETATTR WINDOW.ICONS.SELECTED.i NAME '"'||activeWin||'"' STEM IconInfo.i
IconName.e = IconInfo.i.name
IconPos.e = Y IconInfo.i.TOP X IconInfo.i.LEFT
e = e + 1
end
IconName.0 = e-1
DO i = 1 to IconName.0
IF EXISTS(IconName||".info") ~= 1 THEN DO
IF RIGHT(activeWin,1) ~= ":" THEN filename = '"'||ActiveWin'/'IconName.i||'"'
ELSE filename = '"'||ActiveWin||IconName.i||'"'
ADDRESS COMMAND CondenseIcon filename CI_Options ">NIL:"
ICON WINDOW '"'||activeWin||'"' '"'||IconName.i||'"' IconPos.i
ICON WINDOW '"'||activeWin||'"' '"'||IconName.i||'"' SELECT
MENU WINDOW '"'||activeWin||'"' INVOKE ICONS.SNAPSHOT
END
end
UNLOCKGUI