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


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

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

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


desc
@Restore remembered windows and their positions
@


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

ADDRESS Workbench
OPTIONS RESULTS


IF OPEN("in", "ENVARC:WB-Tools/Windows", "R") THEN DO
    DO UNTIL EOF("in")
        line=STRIP(READLN("in"))

        PARSE VAR line arg1" "arg2

        IF arg1=="Window" THEN DO
            win=arg2
        END
        IF arg1=="Left" THEN DO
            win_left=arg2
        END
        IF arg1=="Top" THEN DO
            win_top=arg2
        END
        IF arg1=="Width" THEN DO
            win_width=arg2
        END
        IF arg1=="Height" THEN DO
            win_height=arg2
        END
        IF arg1=="EndWindow" THEN DO
            LOCKGUI
            WINDOW OPEN '"'win'"'
            CHANGEWINDOW WINDOW '"'win'"' LEFTEDGE win_left TOPEDGE win_top WIDTH win_width HEIGHT win_height
            UNLOCKGUI
        END
    END
    CALL CLOSE("in")
END

@


1.2
log
@- now locks GUI between opening a window and changing its position.
@
text
@d1 2
a2 2
/* $VER: RestoreAll.rexx 1.2 (11.11.2001) (W) by Martin Steigerwald
   $Id: RestoreAll.rexx 1.1 2001/11/05 15:00:47 Helios Exp $
d7 1
@


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