Skip to content
Snippets Groups Projects
Commit ab5388e4 authored by cer's avatar cer
Browse files

*** empty log message ***

parent 25eff6d5
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; Simple extensible browser ;;; Simple extensible browser
;;; Scott McKay ;;; Scott McKay
;; $fiHeader: browser.lisp,v 1.10 92/08/18 17:26:13 cer Exp Locker: cer $ ;; $fiHeader: browser.lisp,v 1.11 92/09/30 11:45:18 cer Exp Locker: cer $
(in-package :clim-browser) (in-package :clim-browser)
...@@ -684,9 +684,8 @@ ...@@ -684,9 +684,8 @@
as form = `(,(si:defstruct-slot-description-ref-macro-name slot-description) as form = `(,(si:defstruct-slot-description-ref-macro-name slot-description)
',object) ',object)
collect (eval form)))) collect (eval form))))
;;--- What do we do for INSTANCEP?
(#+genera (si:instancep object) (#+genera (si:instancep object)
#+allegro (typep object 'standard-object) #-genera (typep object 'standard-object)
#+genera (setq object (si:follow-structure-forwarding object)) #+genera (setq object (si:follow-structure-forwarding object))
;;--- How to arrange for the slot names to be printed? ;;--- How to arrange for the slot names to be printed?
;; This works for Genera Flavors because they are embedded in CLOS ;; This works for Genera Flavors because they are embedded in CLOS
...@@ -705,9 +704,8 @@ ...@@ -705,9 +704,8 @@
(defmethod node-any-inferior-objects-p ((node lisp-object-call-node) (type (eql ':objects))) (defmethod node-any-inferior-objects-p ((node lisp-object-call-node) (type (eql ':objects)))
(let ((object (node-object node))) (let ((object (node-object node)))
(or (consp object) (or (consp object)
;;--- What do we do for INSTANCEP?
#+genera (si:instancep object) #+genera (si:instancep object)
#+allegro (typep object 'standard-object) #-genera (typep object 'standard-object)
(and (arrayp object) (and (arrayp object)
(not (stringp object)))))) (not (stringp object))))))
...@@ -732,22 +730,22 @@ ...@@ -732,22 +730,22 @@
(:command-definer t) (:command-definer t)
(:command-table (browser :inherit-from (accept-values-pane))) (:command-table (browser :inherit-from (accept-values-pane)))
(:panes (:panes
#+++ignore #+++ignore
(title :application (title :application
:display-after-commands t :display-after-commands t
:display-function 'display-title-pane :display-function 'display-title-pane
:default-text-style '(:sans-serif :bold :large)) :default-text-style '(:sans-serif :bold :large))
(graph :application (graph :application
:display-function 'display-graph-pane :display-function 'display-graph-pane
:display-after-commands t :display-after-commands t
:incremental-redisplay t :incremental-redisplay t
:scroll-bars :both) :scroll-bars :both)
(interactor :interactor :height '(5 :line)) (interactor :interactor :height '(5 :line))
(control-panel :accept-values (control-panel :accept-values
:height :compute :height :compute
:display-function :display-function
'(accept-values-pane-displayer '(accept-values-pane-displayer
:displayer accept-call-graph-options))) :displayer accept-call-graph-options)))
(:layouts (:layouts
(default (default
(vertically () (vertically ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment