anchor.diff:    (table table)
     (spacing unsigned-int))
   
  -(defun (setf table-col-spacing) (spacing table &optional col)
  -  (if col
  -      (%table-set-col-spacing table col spacing)
  +(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)
  
positive.code:   "clg 0.93")
  
  
  ;;;; Initalization
  
  (defbinding (gtk-init "gtk_parse_args") () boolean
    "Initializes the library without opening the display."
  
negative.code: 
  (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
  