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