anchor.diff:  (define-simple-dialog create-range-controls (dialog "Range controls")
     (let ((adjustment (adjustment-new 0.0 0.0 101.0 0.1 1.0 1.0)))
       (make-instance 'v-box
  -     :parent dialog :border-width 10 :spacing 10 :show-all t
  +     :parent dialog :border-width 10 :spacing 10
        :child (make-instance 'h-scale
   	     :width-request 150 :adjustment adjustment :inverted t
   	     :update-policy :delayed :digits 1 :draw-value t)
  
positive.code: 
  (define-dialog create-color-selection (dialog "Color selection dialog" 
  				       'color-selection-dialog
  				       :allow-grow nil :allow-shrink nil)
    (with-slots (action-area colorsel) dialog
  ;;     This seg faults for some unknown reason
  ;;     (let ((button (make-instance 'check-button :label "Show Palette")))
  ;;       (dialog-add-action-widget dialog button
  ;;        #'(lambda () 
  ;;  	  (setf 
  ;;  	   (color-selection-has-palette-p colorsel)
  ;;  	   (toggle-button-active-p button)))))
  
      (container-add action-area 
       (create-check-button "Show Opacity" 
        #'(lambda (state)
  	  (setf (color-selection-has-opacity-control-p colorsel) state))))
  
      (container-add action-area
       (create-check-button "Show Palette" 
        #'(lambda (state) 
  	  (setf (color-selection-has-palette-p colorsel) state))))
  
      (signal-connect dialog :ok
       #'(lambda ()
  
negative.code: 	       (tooltips-set-tip tooltips button tip-text tip-private)
  	       button)))
        (make-instance 'v-box
         :parent dialog :border-width 10 :spacing 10
         :child (create-button "button1" "This is button 1" "ContextHelp/button/1")
         :child (create-button "button2" "This is button 2. This is also has a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly." "ContextHelp/button/2")))))
  
  