Changeset 6710

Timestamp:

Jun 12, 2007, 12:58:02 PM (17 years ago)

Author:

Gary Byers

Message:

Generalize the print callback for simple sequence dialogs a bit more.

File:

• branches/ide-1.0/ccl/examples/cocoa-utils.lisp (modified) (3 diffs)

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

@@ -7 +7 @@
      (sequence :initform nil :initarg :sequence :type sequence :reader sequence-window-controller-sequence)
      (result-callback :initarg :result-callback)
-     (key-transform :initform #'identity :initarg :key)
+     (display :initform #'(lambda (item stream) (prin1 item stream)) :initarg :display)
      (title :initform "Sequence dialog" :initarg :title))
   (:metaclass ns:+ns-object))
@@ -59 +59 @@
     ((self sequence-window-controller) view column (row :<NSI>nteger))
   (declare (ignore column view))
-  (with-slots (key-transform sequence) self
-  (%make-nsstring (prin1-to-string (funcall key-transform (elt sequence row))))))
+  (with-slots (display sequence) self
+    (%make-nsstring (with-output-to-string (s)
+                      (funcall display (elt sequence row) s)))))
 
 (defmethod initialize-instance :after ((self sequence-window-controller) &key &allow-other-keys)
@@ -72 +73 @@
      +null-ptr+
      nil)))
+
+;;; Looks like a "util" to me ...
+(defun pathname-to-url (pathname)
+  (make-instance 'ns:ns-url
+                 :file-url-with-path
+                 (%make-nsstring (native-translated-namestring pathname))))