Changeset 6727

Timestamp:

Jun 14, 2007, 12:38:51 AM (17 years ago)

Author:

Gary Byers

Message:

Single default for background color.

File:

• branches/ide-1.0/ccl/examples/cocoa-listener.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/examples/cocoa-listener.lisp

@@ -14 +14 @@
 (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 +220 @@
   
 (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*)