Index: /branches/ide-1.0/ccl/examples/cocoa-utils.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-utils.lisp	(revision 6709)
+++ /branches/ide-1.0/ccl/examples/cocoa-utils.lisp	(revision 6710)
@@ -7,5 +7,5 @@
      (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,6 +59,7 @@
     ((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,2 +73,8 @@
      +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))))