/[cmucl]/src/interface/inspect.lisp
ViewVC logotype

Diff of /src/interface/inspect.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ram, Tue May 4 12:03:36 1993 UTC revision 1.4 by ram, Tue May 4 13:29:10 1993 UTC
# Line 139  Line 139 
139       (format nil "Instance ~a of Class ~a"       (format nil "Instance ~a of Class ~a"
140               object (pcl::class-name (pcl::class-of object))))               object (pcl::class-name (pcl::class-of object))))
141      (function (format nil "~a" object))      (function (format nil "~a" object))
142      (structure      (structure-object
143       (let ((default (format nil "~a" object)))       (let ((default (format nil "~a" object)))
144         (declare (simple-string default))         (declare (simple-string default))
145         (if (and (> (length default) 2)         (if (and (> (length default) 2)
# Line 237  Line 237 
237    (typecase object    (typecase object
238      (pcl::std-instance (display-clos-pane object))      (pcl::std-instance (display-clos-pane object))
239      (function (display-function-pane object))      (function (display-function-pane object))
240      (structure (display-structure-pane object))      (structure-object (display-structure-pane object))
241      (t      (t
242       (with-inspector-pane (object)       (with-inspector-pane (object)
243         (let ((label (create-label-gadget         (let ((label (create-label-gadget
# Line 309  Line 309 
309    
310  (defun display-structure-pane (s)  (defun display-structure-pane (s)
311    (with-inspector-pane (s)    (with-inspector-pane (s)
312      (let* ((dd (info type defined-structure-info (structure-ref s 0)))      (let* ((dd (kernel:layout-info (kernel:%instance-layout s)))
313             (dsds (c::dd-slots dd))             (dsds (kernel:dd-slots dd))
314             (viewer (when (> (length dsds) *inspector-huge-object-threshold*)             (viewer (when (> (length dsds) *inspector-huge-object-threshold*)
315                       (create-scrolled-window form "structureViewer"                       (create-scrolled-window form "structureViewer"
316                                               :left-attachment :attach-form                                               :left-attachment :attach-form
# Line 324  Line 324 
324        (dolist (dsd dsds)        (dolist (dsd dsds)
325          (push          (push
326           (create-value-box rc (format nil "~A:"           (create-value-box rc (format nil "~A:"
327                                        (string-capitalize (c::dsd-%name dsd)))                                        (string-capitalize
328                             (structure-ref s (c::dsd-index dsd))                                         (kernel:dsd-%name dsd)))
329                               (funcall (kernel:dsd-accessor dsd) s)
330                             :callback #'inspect-object-callback)                             :callback #'inspect-object-callback)
331           widgets))           widgets))
332        (apply #'manage-children widgets)        (apply #'manage-children widgets)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5