--- 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 $'
! !