Changeset 649

Timestamp:

Mar 12, 2004, 5:23:21 AM (21 years ago)

Author:

Gary Byers

Message:

use nib

File:

• trunk/ccl/examples/cocoa-backtrace.lisp (modified) (10 diffs)

trunk/ccl/examples/cocoa-backtrace.lisp

@@ -28 +28 @@
 (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 +44 @@
                      backtrace-window-controller)
     (declare (ignore view))
-  (#_NSLog #@"is expandable")
     (or (%null-ptr-p item)
         (our-frame-label-p self item)))
@@ -47 +51 @@
                      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 +61 @@
                                 '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 +71 @@
                      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 +91 @@
                                 '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 +114 @@
                      backtrace-window-controller)
     (declare (ignore view column))
-  (#_NSLog #@"value for item")
     (if (%null-ptr-p item)
       #@"Open this"
@@ -119 +122 @@
   (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 +140 @@
         (send outline-view :set-data-source self)
         (send content-view :add-subview outline-view)
-        (activate-window w)))))
+        (activate-window w))))
+  |#)
 
         
@@ -145 +149 @@
 
 (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