--- a/WindowGroup.st	Fri Sep 07 16:33:26 2018 +0200
+++ b/WindowGroup.st	Tue Sep 11 18:38:05 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2787,12 +2785,15 @@
     |myDevice|
 
     myDevice := self graphicsDevice.
+    myDevice isOpen ifFalse:[
+        ^ self.
+    ].
 
     self allViewsDo:[:aView |  
         |c dev id cid|
 
         dev := aView graphicsDevice.
-        dev notNil ifTrue:[
+        (dev notNil and:[dev isOpen]) ifTrue:[
             (id := aView id) notNil ifTrue:[
                 c := aView cursor.
                 c notNil ifTrue:[
@@ -2809,7 +2810,8 @@
     ].
     myDevice flush
 
-    "Modified: / 22.4.1998 / 14:28:22 / cg"
+    "Modified: / 22-04-1998 / 14:28:22 / cg"
+    "Modified: / 10-09-2018 / 15:40:38 / Stefan Vogel"
 !
 
 showActivity:someMessage