Changeset 817

Timestamp:

May 8, 2004, 1:19:50 PM (21 years ago)

Author:

Gary Byers

Message:

Use #?. SET THE UI OBJECT (lost in 0.14.2 merge.)

File:

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

trunk/ccl/examples/cocoa-window.lisp

@@ -139 +139 @@
 
 ;;; This is a reverse-engineered version of most of -[NSApplication terminate],
-;;; split off this way because we don't necessarily wamt to just do
+;;; split off this way because we don't necessarily want to just do
 ;;  (#_exit 0) when we've shut down the Cocoa UI.
 #+apple-objc
@@ -262 +262 @@
                (send *NSApp* :set-application-icon-image
                      (send (@class ns-image) :image-Named #@"NSApplicationIcon"))
+               (setf (application-ui-object *application*) *NSApp*)
 
                (when application-proxy-class-name
@@ -352 +353 @@
   (let* ((dict (make-objc-instance
                 'ns-mutable-dictionary
-                :with-capacity (if color 3 2))))
+                :with-capacity 5)))
     (send dict 'retain)
     (send dict
           :set-object (create-paragraph-style font line-break-mode)
-          :for-key #@"NSParagraphStyle")
-    (send dict :set-object font :for-key #@"NSFont")
+          :for-key #?NSParagraphStyleAttributeName)
+    (send dict :set-object font :for-key #?NSFontAttributeName)
     (when color
-      (send dict :set-object color :for-key #@"NSColor"))
+      (send dict :set-object color :for-key #?NSForegroundColorAttributeName))
     (when stroke-width
       (send dict :set-object (make-objc-instance 'ns:ns-number
                                                 :with-float (float stroke-width))
-            :for-key #@"NSStrokeWidth"))
+            :for-key #?NSStrokeWidthAttributeName))
     (when obliqueness
       (send dict :set-object (make-objc-instance 'ns:ns-number
                                                 :with-float (float obliqueness))
-            :for-key #@"NSObliqueness"))
+            :for-key #?NSObliquenessAttributeName))
     dict))