anchor.diff:  	    (parse-text-style '(:fix :roman :normal))
   	    :initial-cursor-visibility nil
   	    :scroll-bars t))
  -  #+clim-2
     (:pointer-documentation t)
  -  #+clim-2
     (:layouts
      (default (vertically () display)))
  -  #+(or clim-1.0 clim-2)
     (:command-table (graph-viewer :inherit-from (:graph)))
  -  (:top-level (scigraph-top-level))
  -  )
  -
  -#+clim-0.9
  -(clim:define-application-frame graph-viewer ()
  -  ((display-pane :accessor display-pane)
  -   (command-table :initform 'graph-viewer :accessor frame-command-table)
  -   (graphs :initform nil :accessor frame-graphs)
  -   (display-settings :initform nil :accessor display-settings))
  -  (:pane
  -   (clim:with-frame-slots (display-pane)
  -     (ws::viewing
  -       :subtransformationp t
  -       ;; KRA: There is something magic in this line.
  -       ;; If you remove it, it breaks.
  -       :hs 100 :vs 100 :hs+ clim:*fill* :hs- clim:*fill* :vs+ clim:*fill* :vs- clim:*fill*
  -       (setq display-pane (clim:make-pane 'viewer-display-pane
  -					  :initial-cursor-visibility nil
  -					  :display-function '(redisplay-graphs)
  -					  :display-time nil)))))
     (:top-level (scigraph-top-level)))
  -
  -#-clim
  -(dw:define-program-framework graph-viewer
  -  :size-from-pane display
  -  :selectable nil
  -  :top-level (scigraph-top-level)
  -  :command-table (:inherit-from '("graph" "colon full command"
  -				  "standard arguments" "input editor compatibility")
  -		  :kbd-accelerator-p t)
  -  :state-variables ((frame-graphs nil)
  -		    (display-settings nil))
  -  :other-defflavor-options ((:conc-name nil))
  -  :panes
  -  ((display :display
  -	    :flavor dw:dynamic-window-pane
  -	    :redisplay-function 'redisplay-graphs
  -	    :incremental-redisplay :own-redisplayer
  -	    :redisplay-after-commands nil
  -	    :more-p nil
  -	    :blinker-p nil
  -	    :margin-components nil))) 
   
   (defun scigraph-top-level (self)
     (let* ((*package* (find-package :graph)))
       (loop
         (with-simple-restart (scigraph-top-level "Abort to SCIGRAPH Top Level")
  -	#+clim-2
   	(redisplay-frame-pane (get-frame-pane self 'display))
  -	#FEATURE-CASE
  -	((:clim-0.9 (clim-top-level self))
  -	 ((or :clim-1.0 :clim-2) (default-frame-top-level self))
  -	 ((not :clim)
  -	  (dw:default-command-top-level
  -	      self
  -	      :echo-stream 'ignore
  -	      :dispatch-mode :command-preferred)))))))
  -
  -#+clim-0.9
  -(defmethod enable-frame :after ((frame graph-viewer))
  -   ;; Process all pending events for us, to get those
  -   ;; gratuitous repaint events from window managers handled early.
  -   (let ((g (frame-graphs frame)))
  -     (unwind-protect
  -	  (with-slots (ws::queue) frame
  -	    (setf (frame-graphs frame) nil)
  -	    (do ((event (ws::peek-event ws::queue) (ws::peek-event ws::queue)))
  -		((null event))
  -	      (setq event (ws::get-next-event ws::queue))
  -	      (when (typep event 'ws::repaint-event)
  -		;; This is always a repaint event when things are working correctly.
  -		;; Do a typecheck anyway, to guard against minor problems.
  -		(ws::default-execute-event event))))
  -       ;; Pretend there aren't any graphs while processing repaint events.
  -       (setf (frame-graphs frame) g))))
  +	(default-frame-top-level self)))))
   
   (defun redisplay-graphs (self stream)
     ;; Vertically stack the graphs to fill the pane.
  
positive.code: 	 :stream stream
  	 (display-settings self)))
  
  #-clim-0.9
  (defun view-graphs
      (graphs
       &key
  
negative.code: class.  So you should do the following (in the ws package, 'natch):
  |#
  
  
  ;;;
  ;;; Now define the scigraph viewer frame.
  ;;;
  
  (define-application-frame graph-viewer ()
    ((display-pane :accessor display-pane)
     (graphs :initform nil :accessor frame-graphs)
     (display-settings :initform nil :accessor display-settings))
    (:panes
     (display :application
  	    :display-function 'redisplay-graphs
  