--- a/SimpleView.st	Thu Jul 18 12:09:05 1996 +0200
+++ b/SimpleView.st	Thu Jul 18 13:35:07 1996 +0200
@@ -1245,6 +1245,21 @@
 
 !SimpleView methodsFor:'accessing-bg & border'!
 
+allViewBackground:something
+    "set the viewBackground to something, a color, image or form,
+     in myself and recursively in all of my subviews"
+
+    self viewBackground:something.
+    subViews notNil ifTrue:[
+        subViews do:[:v|
+            v allViewBackground:something
+        ]
+    ]
+
+    "Created: 17.7.1996 / 14:59:08 / cg"
+    "Modified: 18.7.1996 / 13:34:26 / cg"
+!
+
 borderColor
     "return my borderColor"
 
@@ -6425,6 +6440,6 @@
 !SimpleView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.128 1996-07-18 10:09:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.129 1996-07-18 11:35:07 cg Exp $'
 ! !
 SimpleView initialize!