Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 791)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 792)
@@ -348,5 +348,7 @@
 (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,4 +361,12 @@
     (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))