Changeset 613

Timestamp:

Mar 3, 2004, 2:01:42 PM (21 years ago)

Author:

Gary Byers

Message:

Require (and use) "COCOA-DEFAULTS".

File:

• trunk/ccl/examples/cocoa-window.lisp (modified) (3 diffs)

trunk/ccl/examples/cocoa-window.lisp

@@ -19 +19 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require "OBJC-SUPPORT"))
+  (require "OBJC-SUPPORT")
+  (require "COCOA-DEFAULTS"))
 
 (eval-when (:compile-toplevel :execute)
@@ -268 +269 @@
                                                  (toplevel)))))
 
-(defparameter *default-font-name* "Courier")
-(defparameter *default-font-size* 12.0e0)
+(def-cocoa-default *default-font-name* :string "Courier")
+(def-cocoa-default *default-font-size* :float 12.0e0)
 
 (defparameter *font-attribute-names*
@@ -313 +314 @@
             (values font implemented-attributes))))))
 
-(defparameter *tab-width* 8)
+(def-cocoa-default *tab-width* :int 8)
 
 ;;; Create a paragraph style, mostly so that we can set tabs reasonably.