Changeset 792

Timestamp:

Apr 30, 2004, 5:49:42 PM (21 years ago)

Author:

Gary Byers

Message:

Synthesize obliqueness/boldness.

File:

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

trunk/ccl/examples/cocoa-window.lisp

@@ -348 +348 @@
 (defun create-text-attributes (&key (font (default-font))
                                     (line-break-mode :char)
-                                    (color nil))
+                                    (color nil)
+                                    (obliqueness nil)
+                                    (stroke-width nil))
   (let* ((dict (make-objc-instance
                 'ns-mutable-dictionary
@@ -359 +361 @@
     (when color
       (send dict :set-object color :for-key #@"NSColor"))
+    (when stroke-width
+      (send dict :set-object (make-objc-instance 'ns:ns-number
+                                                :with-float (float stroke-width))
+            :for-key #@"NSStrokeWidth"))
+    (when obliqueness
+      (send dict :set-object (make-objc-instance 'ns:ns-number
+                                                :with-float (float obliqueness))
+            :for-key #@"NSObliqueness"))
     dict))