Changeset 749

Timestamp:

Mar 27, 2004, 5:51:46 PM (21 years ago)

Author:

Gary Byers

Message:

Umm, background color components are of type :float.

Location:

trunk/ccl/examples

Files:

• cocoa-editor.lisp (modified) (1 diff)
• cocoa-listener.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-editor.lisp

@@ -16 +16 @@
 ;;; 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.

trunk/ccl/examples/cocoa-listener.lisp

@@ -10 +10 @@
 (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.