--- a/ApplicationModel.st	Mon Sep 19 16:29:19 2016 +0200
+++ b/ApplicationModel.st	Wed Sep 28 13:20:15 2016 +0200
@@ -2817,6 +2817,10 @@
 
 !ApplicationModel methodsFor:'opening'!
 
+hideWindows
+    self windowGroup hideTopViews
+!
+
 open
     "open a standard interface.
      Sorry, but for visualworks compatibility, the builder is returned"
@@ -3177,6 +3181,14 @@
 
     self addTopViewsToCurrentProject.
     self postOpenWith:builder
+!
+
+showWindows
+    self window map;activate.
+!
+
+unhideWindows
+    self windowGroup unhideTopViews
 ! !
 
 !ApplicationModel methodsFor:'opening-dialogs'!