Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 760)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 761)
@@ -20,5 +20,6 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "OBJC-SUPPORT")
-  (require "COCOA-DEFAULTS"))
+  (require "COCOA-DEFAULTS")
+  (require "COCOA-PREFS"))
 
 (eval-when (:compile-toplevel :execute)
@@ -45,12 +46,4 @@
 		:load-nib-named mainnibname
 		:owner app)
-          ;; Create an NSThread which does nothing but exit.
-          ;; This'll help to convince the AppKit that we're
-          ;; multitheaded.  (A lot of other things, including
-          ;; the ObjC runtime, seem to have already noticed.)
-          (send (@class "NSThread")
-                :detach-new-thread-selector (@selector "exit")
-                :to-target (@class "NSThread")
-                :with-object (%null-ptr))
 	  app))))
 
@@ -190,4 +183,8 @@
   (quit))
 
+(define-objc-method ((:void :show-preferences sender) lisp-application)
+  (declare (ignore sender))
+  (send (send (find-class 'preferences-panel) 'shared-panel) 'show))
+
 
 (defun nslog-condition (c)
@@ -278,6 +275,6 @@
 						 (toplevel)))))
 
-(def-cocoa-default *default-font-name* :string "Courier")
-(def-cocoa-default *default-font-size* :float 12.0e0)
+(def-cocoa-default *default-font-name* :string "Courier" "Name of font to use in editor windows")
+(def-cocoa-default *default-font-size* :float 12.0f0 "Size of font to use in editor windows, as a positive SINGLE-FLOAT")
 
 (defparameter *font-attribute-names*
@@ -323,5 +320,5 @@
 	    (values font implemented-attributes))))))
 
-(def-cocoa-default *tab-width* :int 8)
+(def-cocoa-default *tab-width* :int 8 "Width of editor tab stops, in characters" (integer 1 32))
 
 ;;; Create a paragraph style, mostly so that we can set tabs reasonably.
@@ -430,2 +427,6 @@
       (when title (send w :set-title (%make-nsstring title)))
       w)))
+
+
+
+