--- a/View.st	Mon Mar 03 11:25:18 2008 +0100
+++ b/View.st	Sun Mar 09 17:26:36 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 SimpleView subclass:#View
@@ -233,7 +232,7 @@
 
     prev := backgroundChannel.
     backgroundChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev
+    self setupChannel:aValueHolder for:#backgroundColorChanged withOld:prev
 
     "Modified: / 31.10.1997 / 14:38:38 / cg"
     "Created: / 30.3.1999 / 13:48:42 / stefan"
@@ -275,7 +274,7 @@
 
     prev := foregroundChannel.
     foregroundChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev
+    self setupChannel:aValueHolder for:#foregroundColorChanged withOld:prev
 
     "Modified: / 31.10.1997 / 14:38:38 / cg"
     "Modified: / 30.3.1999 / 13:50:08 / stefan"
@@ -708,12 +707,27 @@
 
 !View methodsFor:'event handling'!
 
+backgroundColorChanged
+    "called to update the background color"
+
+    |color|
+
+    color := backgroundChannel value.
+    self backgroundColor:color.
+!
+
 enableStateChanged
     "called to update enable/disable state"
 
     self enabled:(enableChannel value)
 
     "Modified: / 30.3.1999 / 16:07:08 / stefan"
+!
+
+foregroundColorChanged
+    "called to update the background color"
+
+    self foreground:(foregroundChannel value)
 ! !
 
 !View methodsFor:'focus handling'!
@@ -765,5 +779,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.75 2002-09-12 13:57:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.76 2008-03-09 16:26:36 stefan Exp $'
 ! !