anchor.diff:  
   (defmethod (setf container-children) (children (dialog dialog))
     (setf (container-children (dialog-vbox dialog)) children))
  +
  +
  +;;; Drawing Area
  +
  +(defun drawing-area-scroll (drawing-area dx dy)
  +  (gdk:window-scroll (widget-window drawing-area) dx dy))
   
   
   ;;; Entry
  
positive.code: (defbinding %table-get-default-col-spacing () unsigned-int
    (table table))
  
  (defun table-col-spacing (table &optional col)
    (if col
        (%table-get-col-spacing table col)
      (%table-get-default-col-spacing table)))
    
  
  
  ;;; Toolbar
  
negative.code:   (table table)
    (spacing unsigned-int))
  
  (defun (setf table-column-spacing) (spacing table &optional column)
    (if column
        (%table-set-col-spacing table column spacing)
      (%table-set-col-spacings table spacing))
    spacing)
  
  (defun (setf table-col-spacing) (spacing table &optional col)
    (warn "TABLE-COL-SPACING is deprecatet, use TABLE-COLUMN-SPACING instead")
    (setf (table-column-spacing table col) spacing))
  
  (defbinding %table-get-col-spacing () unsigned-int
    (table table)
  