head	1.3;
access;
symbols;
locks;
comment	@# @;


1.3
date	2001.11.11.11.50.52;	author Helios;	state Exp;
branches;
next	1.2;

1.2
date	2001.11.11.11.33.11;	author Helios;	state Exp;
branches;
next	1.1;

1.1
date	2001.11.05.14.09.17;	author Helios;	state Exp;
branches;
next	;


desc
@Close all Workbench windows
@


1.3
log
@- renamed from »CloseAll.rexx« to »CloseWindows.rexx«.
@
text
@/* $VER: CloseWindows.rexx 1.3 (11.11.2001) (W) by Martin Steigerwald
   $Id: CloseAll.rexx 1.2 2001/11/11 11:33:11 Helios Exp $
*/

ADDRESS Workbench
OPTIONS RESULTS


LOCKGUI
GETATTR WINDOWS STEM windowlist

DO i=0 TO windowlist.count-1
    IF windowlist.i ~== "root" THEN DO
        WINDOW WINDOWS '"'windowlist.i'"' CLOSE
    END
END

UNLOCKGUI

@


1.2
log
@- now locks GUI during window closing
@
text
@d1 2
a2 2
/* $VER: CloseAll.rexx 1.2 (11.11.2001) (W) by Martin Steigerwald
   $Id: CloseAll.rexx 1.1 2001/11/05 14:09:17 Helios Exp $
d7 1
@


1.1
log
@Initial revision
@
text
@d1 2
a2 2
/* $VER: CloseAll.rexx 1.1 (5.11.2001) (W) by Martin Steigerwald
   $Id$
d8 1
d17 1
@