--- a/WindowGroup.st	Mon Feb 08 15:29:41 1999 +0100
+++ b/WindowGroup.st	Tue Feb 09 19:29:51 1999 +0100
@@ -1383,6 +1383,13 @@
     "Modified: / 5.4.1998 / 11:35:43 / cg"
 !
 
+repairDamage
+    "repair all damaged areas for any of my views right now."
+
+    self processExposeEvents
+
+!
+
 waitForExposeFor:aView
     "wait for a noExpose event for aView, then process all exposes.
      To be used after a scroll.
@@ -1851,6 +1858,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.149 1999-02-08 14:24:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.150 1999-02-09 18:29:51 cg Exp $'
 ! !
 WindowGroup initialize!