home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 13
/
AACD13.ISO
/
AACD
/
Resources
/
System
/
BoingBag1
/
Contributions
/
Workbench
/
ARexx
/
CloseTopWin.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-12-20
|
400b
|
21 lines
/*
$VER: CloseTopWindows.rexx 1.1 (6.11.99) Copyright (c) Nils Görs.
closes all root windows from the active one.
*/
options results
address WORKBENCH
GETATTR OBJECT WINDOWS.ACTIVE
activeWin = result
GETATTR WINDOWS STEM WINDOW
do i = 0 to WINDOW.count-1
IF WINDOW.i ~= "root" THEN
IF WINDOW.i ~= activeWin THEN
IF ABBREV(activeWin,WINDOW.i) THEN WINDOW '"'||WINDOW.i||'"' CLOSE
END