anchor.diff:                              (+ x1 width) (+ y1 height)
                               :ink +red+
                               :filled nil)
  -           (draw-rectangle* stream
  -                            x1 y1
  -                            (+ x1 final-x) (+ y1 final-y)
  -                            :ink +blue+
  -                            :filled nil))
  +	    (draw-line* stream
  +			0 (+ y1 final-y)
  +			pane-width (+ y1 final-y)
  +			:ink +blue+)
  +	    (draw-line* stream
  +			(+ x1 final-x) 0
  +			(+ x1 final-x) pane-height
  +			:ink +blue+))
             ((:text-bounding-rectangle)
              (multiple-value-bind (left top right bottom)
                  (climi::text-bounding-rectangle* medium str :text-style style)
  
positive.code: 	   :min-width 600
  	   :display-time t
  	   :display-function 'display-canvas)
     (text (make-pane 'text-field :value "ytmM"))
     (family
      (with-radio-box ()
        (make-pane 'toggle-button :label "Fixed" :id :fixed)
  
negative.code:    (size
      (make-pane 'slider
  	       :orientation :horizontal
  	       :value 120
  	       :min-value 1
  	       :max-value 1000)))
    (:layouts
  