anchor.diff:     :child (make-instance class
   	   :border-width 5 :layout-style layout :spacing spacing
   ;	   :child-min-width width :child-min-height height
  -	   :child (make-instance 'button :label "OK")
  -	   :child (make-instance 'button :label "Cancel")
  -	   :child (make-instance 'button :label "Help"))))
  +	   :child (make-instance 'button :label "gtk-ok" :use-stock t)
  +	   :child (make-instance 'button :label "gtk-cancel" :use-stock t)
  +	   :child (make-instance 'button :label "gtk-help" :use-stock t))))
   
   (define-toplevel create-button-box (window "Button Boxes")
     (make-instance 'v-box
  
positive.code: ;; 	    ("test scrolling")
  ;; 	    ("test selection")
  ;; 	    ("test timeout" create-timeout-test)
  ;; 	    ("text" #|create-text|#)
   	    ("toggle buttons" create-toggle-buttons)
   	    ("toolbar" create-toolbar)
  ;; 	    ("tooltips" create-tooltips)
  ;; 	    ("tree" #|create-tree|#)
  ))
  	(main-window (make-instance 'window
  		      :title "testgtk.lisp" :name "main_window"
  
negative.code: ;; 	   (when timer
  ;; 	     (timeout-remove timer)
  ;; 	     (setq timer nil))))))))
  
  
  ;;; Text
  
  (define-simple-dialog create-text (dialog "Text" :default-width 400
  					         :default-height 400)
    (make-instance 'text-view :border-width 10  :parent dialog :visible t))  
  
  ;;; Toggle buttons
  
  