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: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: testgtk.lisp,v 1.7 2004-11-21 17:58:28 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  
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
  
  