anchor.diff:  (defun cursor-expose (drawing-area event)
     (declare (ignore event))
     (multiple-value-bind (width height)
  -      (drawing-area-get-size drawing-area)
  +      (widget-get-size-allocation drawing-area)
       (let* ((window (widget-window drawing-area))
   	   (style (widget-style drawing-area))
   	   (white-gc (style-white-gc style))
  
positive.code: (define-simple-dialog create-reparent (dialog "Reparent")
    (let ((main (make-instance 'h-box 
  	       :homogeneous t :spacing 10 :border-width 10 :parent dialog))
  	(label (make-instance 'label :label "Hellow World")))
  
      (flet ((create-frame (title)
  	     (let* ((frame (make-instance 'frame :label title :parent main))
  
negative.code:    :label frame-label
     :child (make-instance class
  	   :border-width 5 :layout-style layout :spacing spacing
  	   :child (make-instance 'button :stock "gtk-ok")
  	   :child (make-instance 'button :stock "gtk-cancel")
  	   :child (make-instance 'button :stock "gtk-help"))))
  
  (define-toplevel create-button-box (window "Button Boxes")
    (make-instance 'v-box
  