anchor.diff:  ;; 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 $
  +;; $Id: gtkcontainer.lisp,v 1.15 2004-12-29 21:14:23 espen Exp $
   
   (in-package "GTK")
   
  
positive.code:   (with-callback-function (id function)
      (%container-foreach container id)))
  
  (defun map-container (seqtype func container)
    (case seqtype
      ((nil)
  
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)
  