anchor.diff:    `(let ((,window nil))
        (defun ,name ()
          (unless ,window
  -	 (setq ,window (apply #'make-instance 'window :title ,title ',initargs))
  +	 (setq ,window (make-instance 'window :title ,title ,@initargs :show-children t))
   	 (signal-connect ,window 'destroy #'(lambda () (setq ,window nil)))
   	 ,@body)
          
          (if (not (widget-visible-p ,window))
  -	   (widget-show-all ,window)
  +	   (widget-show ,window)
   	 (widget-hide ,window)))))
   
   
  
positive.code: 	       (tooltips-set-tip tooltips button tip-text tip-private)
  	       button)))
        (make-instance 'v-box
         :parent dialog :border-width 10 :spacing 10 :show-all t
         :child (create-button "button1" "This is button 1" "ContextHelp/button/1")
         :child (create-button "button2" "This is button 2. This is also has a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly." "ContextHelp/button/2")))))
  
  
negative.code: 
  (define-simple-dialog create-radio-buttons (dialog "Radio buttons")
    (make-instance 'v-box
     :parent dialog :border-width 10 :spacing 10
     :children (make-radio-group 'radio-button
  	      '((:label "button1") (:label "button2") (:label "button3"))
  	      nil)))
  