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:       (tree-view-append-column tree column))      
  
      (make-instance 'v-box
       :parent dialog :border-width 10 :spacing 10 :show-all t
       :child (list
  	     (make-instance 'h-box
                :spacing 10
  
negative.code:     (dotimes (i 16)
        (dotimes (j 16)
  	(let ((text (format nil "Button ~D, ~D" i j)))
  	  (layout-put layout
  	   (make-instance (if (not (zerop (mod (+ i j) 2)))
  			      'button
  			    'label)
  			  :label text :visible t)
  	   (* j 100) (* i 100)))))
  
      (loop
       for i from 16 below 1280
       do (let ((text (format nil "Button ~D, ~D" i 0)))
  	  (layout-put layout
  	   (make-instance (if (not (zerop (mod i 2)))
  			      'button
  			    'label)
  			  :label text :visible t)
  	   0 (* i 100))))))
  
  
  
  