--- a/View.st	Tue Oct 31 10:58:40 2000 +0100
+++ b/View.st	Tue Oct 31 13:39:19 2000 +0100
@@ -200,6 +200,22 @@
     "Created: 3.1.1997 / 01:50:36 / stefan"
 ! !
 
+!View 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.
+     However, if I have a backgroundChannel, dont change my own bg."
+
+    backgroundChannel isNil ifTrue:[
+        ^ super allViewBackground:something
+    ].
+
+    self allSubViewsBackground:something
+
+    "Modified: / 31.10.2000 / 13:06:57 / bg"
+! !
+
 !View methodsFor:'accessing-channels'!
 
 backgroundChannel 
@@ -772,5 +788,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.70 2000-05-25 12:39:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.71 2000-10-31 12:39:19 cg Exp $'
 ! !