anchor.diff:                        :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
  
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:                     (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)
                  (:fill (scrolling (:width 600 :height 400) canvas))))
         (horizontally (:height 30) clear undo redo)
         status)))
  