Changeset 6587 for branches

Timestamp:

May 20, 2007, 9:11:55 AM (18 years ago)

Author:

Gary Byers

Message:

Use #/setDefaultTabInterval, rather than creating a tab stop array.

File:

• branches/ide-1.0/ccl/examples/cocoa-window.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-window.lisp

@@ -256 +256 @@
     ;; Clear existing tab stops.
     (#/setTabStops: p (#/array ns:ns-array))
-    (do* ((i 1 (1+ i)))
-         ((= i 100) p)
-      (let* ((tabstop (make-instance
-                       'ns:ns-text-tab
-                       :with-type #$NSLeftTabStopType
-                       :location  (* (* i *tab-width*)
-                                        charwidth))))
-        (#/addTabStop: p tabstop)
-        (#/release tabstop)))))
+    ;; And set the "default tab interval".
+    (#/setDefaultTabInterval: p (float (* *tab-width* charwidth) +cgfloat-zero+))
+    p))
     
 (defun create-text-attributes (&key (font (default-font))