author | Stefan Vogel <sv@exept.de> |
Fri, 17 Mar 2017 18:51:54 +0100 | |
changeset 3943 | 0051277ccb4a |
parent 3942 | 521552945b3a |
child 3944 | 4d859e0633c6 |
--- a/ApplicationModel.st Tue Mar 14 20:31:05 2017 +0100 +++ b/ApplicationModel.st Fri Mar 17 18:51:54 2017 +0100 @@ -2993,7 +2993,14 @@ !ApplicationModel methodsFor:'opening'! hideWindows - self windowGroup hideTopViews + |wg| + + wg := self windowGroup. + wg notNil ifTrue:[ + wg hideTopViews. + ]. + + "Modified: / 17-03-2017 / 17:22:31 / stefan" ! open