# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 908363343 -7200
# Node ID 4daa65ec00550e2a296f82f041fe0fc1d04f341e
# Parent  f147a2385f0787350da950e3b4dc6954480066ae
added windows->redrawAll

diff -r f147a2385f07 -r 4daa65ec0055 NewLauncher.st
--- a/NewLauncher.st	Tue Oct 13 23:30:44 1998 +0200
+++ b/NewLauncher.st	Wed Oct 14 13:09:03 1998 +0200
@@ -1182,6 +1182,12 @@
                           #activeHelpKey: #windowsDeiconifyAll
                       )
                        #(#MenuItem
+                          #label: 'Redraw All'
+                          #translateLabel: true
+                          #value: #redrawAllWindows
+                          #activeHelpKey: #windowsRedrawAll
+                      )
+                       #(#MenuItem
                           #label: '-'
                       )
                        #(#MenuItem
@@ -1726,7 +1732,7 @@
           nil
       )
 
-    "Modified: / 13.10.1998 / 22:47:16 / cg"
+    "Modified: / 14.10.1998 / 12:25:06 / cg"
 !
 
 menuToolbar
@@ -3487,6 +3493,20 @@
 
 !
 
+redrawAllWindows
+    |setOfViews|
+
+    setOfViews := Screen current knownViews.
+
+    setOfViews do:[:aView |
+        aView shown ifTrue:[
+            aView clear; invalidate
+        ]
+    ]
+
+    "Created: / 14.10.1998 / 12:23:27 / cg"
+!
+
 screenHardcopy
     "after a second (to allow redraw of views under menu ...),
      let user specify a rectangular area on the screen
@@ -3599,5 +3619,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.114 1998-10-13 21:30:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.115 1998-10-14 11:09:03 cg Exp $'
 ! !