anchor.diff:  
   (defmacro define-simple-dialog (name (dialog title &rest initargs) &body body)
     `(define-dialog ,name (,dialog ,title 'dialog ,@initargs)
  -    (dialog-add-button ,dialog "gtk-close" #'widget-destroy :object t)
  -    ,@body))
  +    ,@body
  +    (dialog-add-button ,dialog "gtk-close" #'widget-destroy :object t)))
   
   
   
  
positive.code: 
  ;;; Idle test
  
  ;; (define-standard-dialog create-idle-test "Idle Test"
  ;;   (let* ((container (make-instance 'hbox :parent main-box))
  ;; 	 (label (make-instance 'label
  ;; 		 :label "count: 0" :xpad 10 :ypad 10 :parent container))
  ;; 	 (idle nil)
  ;; 	 (count 0))
  ;;     (declare (fixnum count))
  ;;     (signal-connect
  ;;      window 'destroy #'(lambda () (when idle (idle-remove idle))))
   
  ;;     (make-instance 'frame
  ;;      :label "Label Container" :border-width 5 :parent main-box
  ;;      :child
  ;;      (make-instance 'v-box
  ;;       :children
  ;;       (create-radio-button-group
  ;;        '(("Resize-Parent" :parent)
  ;; 	 ("Resize-Queue" :queue)
  ;; 	 ("Resize-Immediate" :immediate))
  ;;        0
  ;;        '(setf container-resize-mode) container)))
  
  ;;     (make-instance 'button
  ;;      :label "start" :can-default t :parent action-area
  ;;      :signals
  ;;      (list
  ;;       (list
  ;;        'clicked
  ;;        #'(lambda ()
  ;; 	   (unless idle
  ;; 	     (setq
  ;; 	      idle
  ;; 	      (idle-add
  ;; 	       #'(lambda ()
  ;; 		   (incf count)
  ;; 		   (setf (label-label label) (format nil "count: ~D" count))
  ;; 		   t))))))))
        
  ;;     (make-instance 'button
  ;;      :label "stop" :can-default t :parent action-area
  ;;      :signals
  ;;      (list
  ;;       (list
  ;;        'clicked
  ;;        #'(lambda ()
  ;; 	   (when idle
  ;; 	     (idle-remove idle)
  ;; 	     (setq idle nil))))))))
      
  
  
  ;;; Timeout test
  
  ;; (define-standard-dialog create-timeout-test "Timeout Test"
  ;;   (let ((label (make-instance 'label
  ;; 		:label "count: 0" :xpad 10 :ypad 10 :parent main-box))
  ;; 	(timer nil)
  ;; 	(count 0))
  ;;     (declare (fixnum count))
  ;;     (signal-connect
  ;;      window 'destroy #'(lambda () (when timer (timeout-remove timer))))
            
  ;;     (make-instance 'button
  ;;      :label "start" :can-default t :parent action-area
  ;;      :signals
  ;;      (list
  ;;       (list
  ;;        'clicked
  ;;        #'(lambda ()
  ;; 	   (unless timer
  ;; 	     (setq
  ;; 	      timer
  ;; 	      (timeout-add
  ;; 	       100
  ;; 	       #'(lambda ()
  ;; 		   (incf count)
  ;; 		   (setf (label-label label) (format nil "count: ~D" count))
  ;; 		   t))))))))
  
  ;;     (make-instance 'button
  ;;      :label "stop" :can-default t :parent action-area
  ;;      :signals
  ;;      (list
  ;;       (list
  ;;        'clicked
  ;;        #'(lambda ()
  ;; 	   (when timer
  ;; 	     (timeout-remove timer)
  ;; 	     (setq timer nil))))))))
  
  
  ;;; Text
  
negative.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.10 2004-12-05 13:57:10 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  