Index: /branches/ide-1.0/ccl/examples/cocoa-listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6726)
+++ /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6727)
@@ -14,8 +14,5 @@
 (def-cocoa-default hi::*listener-input-style* :int 0 "Text style index for listener output")
 
-(def-cocoa-default *listener-background-red-component* :float 0.90f0 "Red component of editor background color.  Should be a float between 0.0 and 1.0, inclusive.")
-(def-cocoa-default *listener-background-green-component* :float 0.90f0 "Green component of editor background color.  Should be a float between 0.0 and 1.0, inclusive.")
-(def-cocoa-default *listener-background-blue-component* :float 0.90f0 "Blue component of editor background color.  Should be a float between 0.0 and 1.0, inclusive.")
-(def-cocoa-default *listener-background-alpha-component* :float 1.0f0 "Red component of editor background color.  Should be a float between 0.0 and 1.0, inclusive.")
+(def-cocoa-default *listener-background-color* :color (#/whiteColor ns:ns-color) "Listener default background color")
 
 ;;; Setup the server end of a pty pair.
@@ -223,10 +220,5 @@
   
 (defmethod textview-background-color ((doc hemlock-listener-document))
-  (#/colorWithCalibratedRed:green:blue:alpha:
-   ns:ns-color
-   (float *listener-background-red-component* +cgfloat-zero+)
-   (float *listener-background-green-component* +cgfloat-zero+)
-   (float *listener-background-blue-component* +cgfloat-zero+)
-   (float *listener-background-alpha-component* +cgfloat-zero+)))
+  *listener-background-color*)