anchor.diff:  	 :stream stream
   	 (display-settings self)))
   
  -#-clim-0.9
   (defun view-graphs
       (graphs
        &key
  
positive.code: class.  So you should do the following (in the ws package, 'natch):
  |#
  
  #+clim-0.9
  (progn
    ;; JPM: The MAP system also provides the following two methods.
    ;; Whichever gets loaded last wins.  Perhaps the common code should
    ;; be placed in a common file.
  
    (defmethod clim-shared::sheet-region-changed :after ((self ws::viewport-pane))
      (with-slots (ws::extent-pane) self
        (ws::viewport-extent-changed ws::extent-pane)))
  
    (defmethod ws::viewport-extent-changed ((pane ci::pane)) nil)
  
    (defclass reshape-display-function-mixin () ()
  	    (:Documentation "Run the redisplay function when window gets reshaped."))
  
    (defmethod ws::viewport-extent-changed
        ((pane reshape-display-function-mixin))
      ;; Test to see if the frame is enabled to suppress an unnecessary
      ;; redisplay for the case where the frame is initially getting enabled.
      (when (eq (frame-state (pane-frame pane)) :enabled)
        ;; JPM.  This is done asynchronously, and could cause momentary
        ;; inconsistencies when done in a master/slave context, so inhibit
        ;; scheduling.
        (clim-utils:without-interrupts
  	(pane-needs-redisplay pane)
  	(redisplay-frame-pane pane))))
  
    (defclass viewer-display-pane (reshape-display-function-mixin
  				 clim-stream-pane)
      ())
  
    ;; Inherit the graph command table.
    (make-command-table graph-viewer :inherit-from (graph))
    )
  
  ;;;
  ;;; Now define the scigraph viewer frame.
  ;;;
  
  #+(and clim (not clim-0.9))
  (define-application-frame graph-viewer ()
    ((display-pane :accessor display-pane)
     (graphs :initform nil :accessor frame-graphs)
     (display-settings :initform nil :accessor display-settings))
    #+clim-1.0
    (:panes
      ((display :application
  	      :display-function 'redisplay-graphs
  	      :default-text-style (parse-text-style '(:fix :roman :normal))
  	      :end-of-line-action :allow
  	      :end-of-page-action :allow
  	      :display-after-commands nil
  	      :initial-cursor-visibility nil
  	      :scroll-bars :both
  	      :stream-background +black+
  	      :stream-foreground +white+)
       (documentation :pointer-documentation
  		    :stream-background +black+
  		    :stream-foreground +white+)))
    #+(and clim-2 (not :mcclim))
    (:panes
     (display 
      (scrolling
       () 
       (make-pane 'application-pane
  		:display-function 'redisplay-graphs
  		:display-time t
  		:text-style 
  		(parse-text-style '(:fix :roman :normal))
  		:initial-cursor-visibility nil
  		;; There is a clim bug whose workaround is to use a non-default
  		;; output history.  The bug is displaying overlapping presentations
  		;; in combination with a coordinate sorted set output history.  In
  		;; our case, graph annotations sometimes get put into the history wrong.
  		;; At that point, they lose their mouse sensitivity.
  		:OUTPUT-RECORD
  		(MAKE-INSTANCE 'CLIM:R-TREE-OUTPUT-HISTORY)
  		))))
    ;; In McCLIM, the name of the pane goes with the top level pane in the
    ;; definition, which seems to follow the spec. But we want the name
    ;; to go with the application pane...
    #+mcclim
    (:panes
     (display :application
  	    :display-function 'redisplay-graphs
  
negative.code: 	    (parse-text-style '(:fix :roman :normal))
  	    :initial-cursor-visibility nil
  	    :scroll-bars t))
    (:pointer-documentation t)
    (:layouts
     (default (vertically () display)))
    (:command-table (graph-viewer :inherit-from (:graph)))
    (:top-level (scigraph-top-level)))
  
  (defun scigraph-top-level (self)
    (let* ((*package* (find-package :graph)))
      (loop
        (with-simple-restart (scigraph-top-level "Abort to SCIGRAPH Top Level")
  	(redisplay-frame-pane (get-frame-pane self 'display))
  	(default-frame-top-level self)))))
  
  (defun redisplay-graphs (self stream)
    ;; Vertically stack the graphs to fill the pane.
  