Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 748)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 749)
@@ -16,8 +16,8 @@
 ;;; Background color components: red, blue, green, alpha.
 ;;; All should be single-floats between 0.0f0 and 1.0f0, inclusive.
-(def-cocoa-default *editor-background-red-component* :int 1.0f0)
-(def-cocoa-default *editor-background-blue-component* :int 1.0f0)
-(def-cocoa-default *editor-background-green-component* :int 1.0f0)
-(def-cocoa-default *editor-background-alpha-component* :int 1.0f0)
+(def-cocoa-default *editor-background-red-component* :float 1.0f0)
+(def-cocoa-default *editor-background-blue-component* :float 1.0f0)
+(def-cocoa-default *editor-background-green-component* :float 1.0f0)
+(def-cocoa-default *editor-background-alpha-component* :float 1.0f0)
 
 ;;; At runtime, this'll be a vector of character attribute dictionaries.
Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 748)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 749)
@@ -10,8 +10,8 @@
 (def-cocoa-default *listener-columns* :int 80)
 
-(def-cocoa-default *listener-background-red-component* :int 0.75f0)
-(def-cocoa-default *listener-background-green-component* :int 0.75f0)
-(def-cocoa-default *listener-background-blue-component* :int 0.75f0)
-(def-cocoa-default *listener-background-alpha-component* :int 1.0f0)
+(def-cocoa-default *listener-background-red-component* :float 0.90f0)
+(def-cocoa-default *listener-background-green-component* :float 0.90f0)
+(def-cocoa-default *listener-background-blue-component* :float 0.90f0)
+(def-cocoa-default *listener-background-alpha-component* :float 1.0f0)
 
 ;;; Setup the server end of a pty pair.