--- a/DeviceWorkstation.st	Thu Nov 23 19:41:54 2000 +0100
+++ b/DeviceWorkstation.st	Fri Dec 01 16:21:51 2000 +0100
@@ -974,6 +974,26 @@
     "Modified: 15.10.1997 / 19:29:10 / cg"
 !
 
+fillWhite
+    "fill all of the display with white.
+     Added to allow for some squeak examples to be evaluated ..."
+
+    self fillWhite:(self bounds)
+
+    "
+     Display restoreAfter:[
+         Display fillWhite
+     ]
+    "
+    "
+     Display restoreAfter:[
+         Display fillWhite:(10@10 corner:100@100)
+     ]
+    "
+
+    "Modified: 15.10.1997 / 19:28:17 / cg"
+!
+
 fillWhite:aRectangle
     "fill a rectangular area on the display with white.
      Added to allow for some squeak examples to be evaluated ..."
@@ -7211,6 +7231,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.387 2000-11-23 18:41:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.388 2000-12-01 15:21:51 cg Exp $'
 ! !
 DeviceWorkstation initialize!