anchor.diff:  	       (ignore-errors
   		(set-all-status-lines run-string 'status-line-process)
   		))))))))
  -
  
positive.code: ;;; itself rather hastily.
  
  ;;; default width of a field;
  (defconstant *status-width* 150)
  
  ;;; leftmost positions of each field, as a percentage of pane width:
  (defconstant time-left .05)
  
negative.code: ;;;      a slot on your frame whose :initform is (MAKE-STATUS-LINE stream) and
  ;;;      whose :accessor is STATUS-LINE.  (The stream argument to MAKE-STATUS-LINE
  ;;;      should be the status pane.)
  ;;;  c. Initialize the status line (and for clim-0.9,
  ;;;     bind *frame-for-status-line*):
  ;;;
  ;;;      (defmethod dart-frame-top-level ((frame dart-frame))
  ;;;         (initialize-status-line)
  ;;;         (let ((*frame-for-status-line* frame))
  ;;;           (loop
  ;;;             (lcl:with-simple-restart
  ;;;                   (dart-top-level "Abort to DART Top Level")
  ;;;               (clim:clim-top-level frame)))))
  ;;;
  ;;;
  ;;;
  