anchor.diff:  	       (make-instance 'frame :label label :child table))))
   
         (make-instance 'v-box
  -       :parent dialog :border-width 5 :spacing 5 :show-all t
  +       :parent dialog :border-width 5 :spacing 5
          :child (create-frame "Color Options"
   	       '(("Foreground" "Red" "Green" "Blue")
   		 ("Background" "Red" "Green" "Blue")))
  
positive.code: 		       (setq active-tags (delete tag active-tags)))
   		     (multiple-value-bind (non-zero-p start end)
   			 (text-buffer-get-selection-bounds buffer)
  		       (if active 
  			   (text-buffer-apply-tag buffer tag start end)
  			 (text-buffer-remove-tag buffer tag start end))))))))
  
negative.code:       
  	(create-check-button "Editable" 'editable)
  	(create-check-button "Visible" 'visibility)
  	(create-check-button "Sensitive" 'sensitive)))))
  
  
  ;; Expander
  
  (define-simple-dialog create-expander (dialog "Expander" :resizable nil)
    (make-instance 'v-box
     :parent dialog :spacing 5 :border-width 5
     :child (create-label "Expander demo. Click on the triangle for details.")
     :child (make-instance 'expander
  	   :label "Details"
  