Index: /trunk/ccl/examples/cocoa-backtrace.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-backtrace.lisp	(revision 648)
+++ /trunk/ccl/examples/cocoa-backtrace.lisp	(revision 649)
@@ -28,6 +28,11 @@
 (defclass backtrace-window-controller (ns:ns-window-controller)
     ((context :initarg :context :reader backtrace-controller-context)
-     (inspector :initform nil :reader backtrace-window-controller-inspector))
+     (inspector :initform nil :reader backtrace-controller-inspector)
+     (outline-view :foreign-type :id :reader backtrace-controller-outline-view))
   (:metaclass ns:+ns-object))
+
+(define-objc-method ((:id window-nib-name)
+		     backtrace-window-controller)
+  #@"backtrace")
 
 (defmethod our-frame-label-p ((self backtrace-window-controller) thing)
@@ -39,5 +44,4 @@
                      backtrace-window-controller)
     (declare (ignore view))
-  (#_NSLog #@"is expandable")
     (or (%null-ptr-p item)
         (our-frame-label-p self item)))
@@ -47,6 +51,5 @@
                      backtrace-window-controller)
     (declare (ignore view))
-  (#_NSLog #@"Number of children")
-    (let* ((inspector (backtrace-window-controller-inspector self)))
+    (let* ((inspector (backtrace-controller-inspector self)))
       (cond ((%null-ptr-p item)
              (inspector::inspector-line-count inspector))
@@ -58,5 +61,6 @@
                                 'inspector::stack-frame-inspector
                                 :frame-number (frame-label-number item)
-                                :object (inspector::inspector-object inspector))))))
+                                :object (inspector::inspector-object inspector)
+				:update-line-count t)))))
                (inspector::inspector-line-count frame-inspector)))
             (t -1))))
@@ -67,6 +71,5 @@
                      backtrace-window-controller)
     (declare (ignore view))
-  (#_NSLog #@"child of item")
-    (let* ((inspector (backtrace-window-controller-inspector self)))
+    (let* ((inspector (backtrace-controller-inspector self)))
       (cond ((%null-ptr-p item)
              (let* ((label
@@ -88,5 +91,6 @@
                                 'inspector::stack-frame-inspector
                                 :frame-number (frame-label-number item)
-                                :object (inspector::inspector-object inspector))))))
+                                :object (inspector::inspector-object inspector)
+				:update-line-count t)))))
                (make-objc-instance 'frame-item
                                    :frame-label item
@@ -110,5 +114,4 @@
                      backtrace-window-controller)
     (declare (ignore view column))
-  (#_NSLog #@"value for item")
     (if (%null-ptr-p item)
       #@"Open this"
@@ -119,5 +122,5 @@
   (setf (slot-value self 'inspector)
         (make-instance 'inspector::stack-inspector :info (backtrace-controller-context self) :update-line-count t))
-  (let* ((w (send self 'window))
+#|  (let* ((w (send self 'window))
          (content-view (send w 'content-view)))
     (slet ((frame (send content-view 'frame)))
@@ -137,5 +140,6 @@
         (send outline-view :set-data-source self)
         (send content-view :add-subview outline-view)
-        (activate-window w)))))
+        (activate-window w))))
+  |#)
 
         
@@ -145,8 +149,16 @@
 
 (defun backtrace-window-for-context (context)
-  (make-instance 'backtrace-window-controller
-                 :with-window (new-cocoa-window :title "Backtrace"
-                                                :activate nil)
-                 :context context))
+  (let* ((cont (make-instance 'backtrace-window-controller
+			      :with-window-nib-name #@"backtrace"
+			      :context context)))
+    (send cont :show-window nil)
+    cont))
+
+
+
+
+(define-objc-method ((:void will-load)
+		     backtrace-window-controller)
+  (#_NSLog #@"will load %@" :address (send self 'window-nib-name)))
 
 #+notyet