anchor.diff:                      (list red-button magenta-button yellow-button white-button)
                       (list turquoise-button grey-button brown-button orange-button))
                     line-width-slider
  +                  (horizontally (:spacing 4)
  +                    (labelling (:label "Dashes"))
  +                    dashes)
                     round-shape-toggle
                     (horizontally () fill-mode-toggle constrict-toggle)
                     point-button line-button arrow-button
                     ellipse-button rectangle-button
  -	          bezier-button)
  +                  bezier-button)
                   (:fill (scrolling (:width 600 :height 400) canvas))))
          (horizontally (:height 30) clear undo redo)
          status)))
  
positive.code:                        mode))
  	     :width width :height height))
  
  (defun make-merged-line-style (line-style &key unit thickness joint-shape cap-shape
                                 (dashes nil dashes-p))
    (make-line-style :unit (or unit
                               (line-style-unit line-style))
                     :thickness (or thickness
                                   (line-style-thickness line-style))
                     :joint-shape (or joint-shape
                                      (line-style-joint-shape line-style))
                     :cap-shape (or cap-shape
                                    (line-style-cap-shape line-style))
                     :dashes (if dashes-p
                                 dashes
                                 (line-style-dashes line-style))))
  
  (define-application-frame clim-fig ()
    ((drawing-mode :initform :line :accessor clim-fig-drawing-mode)
  
negative.code:                       :decimal-places 0
  		      :height 50
  		      :orientation :horizontal)
     (dashes :option-pane
             :value nil
             :items '(nil (2 2) (4 4) (2 4) (4 2))
             :name-key 'make-dashes-string
             :value-changed-callback
             (lambda (gadget value)
               (declare (ignore gadget))
               (with-slots (line-style) *application-frame*
                 (setf line-style
                       (make-merged-line-style line-style :dashes value))))
             :text-style (make-text-style :fix nil nil))
     (round-shape-toggle :toggle-button
                         :label "Round Cap/Joint"
                         :value nil
  