--- a/EditField.st	Mon Jun 23 18:05:38 2008 +0200
+++ b/EditField.st	Mon Jun 23 18:51:00 2008 +0200
@@ -2001,6 +2001,8 @@
 
     |fg|
 
+    backgroundChannel notNil ifTrue:[^ self].
+
     (self isReadOnly or:[enabled not]) ifTrue:[
         self backgroundColor:(View defaultViewBackgroundColor).
         enabled ifFalse:[
@@ -2200,5 +2202,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.191 2008-04-22 10:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.192 2008-06-23 16:51:00 cg Exp $'
 ! !