Changeset 761

Timestamp:

Apr 7, 2004, 8:41:46 PM (21 years ago)

Author:

Gary Byers

Message:

Require "COCOA-PREFS". Doc string on defaults; handle
showPreferences: message.

File:

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

trunk/ccl/examples/cocoa-window.lisp

@@ -20 +20 @@
 (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 +46 @@
                 :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 +183 @@
   (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 +275 @@
                                                  (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 +320 @@
             (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 +427 @@
       (when title (send w :set-title (%make-nsstring title)))
       w)))
+
+
+
+