anchor.diff:     initargs :child :children))
   
   
  -(defmethod create-callback-function ((container container) function arg1)
  -  (if (eq arg1 :children)
  +(defmethod compute-signal-function ((container container) signal function object)
  +  (if (eq object :children)
         #'(lambda (&rest args)
   	  (mapc #'(lambda (child)
   		    (apply function child (rest args)))
  
positive.code:       #'make-instance
        (gethash (class-of container) *container-to-child-class-mappings*)
        :parent container :child widget args))))
  
  
  (defbinding %container-remove () nil
    (container container)
  
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: gtkcontainer.lisp,v 1.17 2005-02-22 23:08:52 espen Exp $
  
  (in-package "GTK")
  
  (defmethod shared-initialize ((container container) names &rest initargs 
  			      &key child children child-args 
  			           (show-children nil show-children-p))
    (declare (ignore child children))
    (when show-children-p
      (if (not show-children)
  	(setf (user-data container 'show-recursive-p) nil)
        (signal-connect container 'show #'container-show-recursive 
         :object t :remove t)))
  
    (call-next-method)
    (initial-add container 
     #'(lambda (container args) 
  