anchor.diff:    (with-callback-function (id function)
       (%container-foreach container id)))
   
  +(defbinding %container-forall (container callback-id) nil
  +  (container container)
  +  ((callback %foreach-callback) pointer)
  +  (callback-id unsigned-int))
  +
  +(defun container-forall (container function)
  +  (with-callback-function (id function)
  +    (%container-forall container id)))
  +
   (defun map-container (seqtype func container)
     (case seqtype
       ((nil)
  
positive.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.14 2004-12-20 20:09:54 espen Exp $
  
  (in-package "GTK")
  
  
negative.code: 	    (incf index)))
         seq))))
  
  (defmethod container-children ((container container))
    (map-container 'list #'identity container))
  
  (defmethod (setf container-children) (children (container container))
    (dolist (child (container-children container))
      (container-remove container child))
    (dolist (child children)
      (apply #'container-add container (mklist child)))
    children)
  
  (defun container-length (container)
  