anchor.diff:  	(if is-child1-p
   	    (paned-child1 paned)
   	  (paned-child2 paned))
  -      (widget-ref child)
         (container-remove paned child)
         (if is-child1-p
   	  (paned-pack1 paned child (not resize) shrink)
  -	(paned-pack2 paned child (not resize) shrink))
  -      (widget-unref child))))
  +	(paned-pack2 paned child (not resize) shrink)))))
   
   (defun toggle-shrink (child)
     (let* ((paned (widget-parent child))
  
positive.code: 		 (let ((label-box (hbox-new nil 0))
  		       (menu-box (hbox-new nil 0)))
  		   (box-pack-start
  		    label-box (pixmap-new (list book-closed book-closed-mask))
  		    nil t 0)
  		   (box-pack-start label-box (label-new title) nil t 0)
  		   (widget-show-all label-box)
  		   (box-pack-start
  		    menu-box (pixmap-new (list book-closed book-closed-mask))
  		    nil t 0)
  		   (box-pack-start menu-box (label-new title) nil t 0)
  		   (widget-show-all menu-box)
  
negative.code: 	       (declare (ignore mask win) (fixnum xp yp))
  	       (widget-set-uposition
  		window :x (- xp x-offset) :y (- yp y-offset)))
  	     t))
  	(signal-connect window 'destroy destroy)))
      
      (widget-show-all window)
      window))
  
  
  