anchor.diff:    (start int)
     (end int))
   
  -
  -
  -;;; Acccel label
  -
  -(defbinding accel-label-refetch () boolean
  -  (accel-label accel-label))
  -
  -
  -
  -;;; Bin
  -
  -(defbinding (bin-child "gtk_bin_get_child") () widget
  -  (bin bin))
  -
  -(defun (setf bin-child) (child bin)
  -  (let ((old-child (bin-child bin)))
  -    (when old-child
  -      (container-remove bin old-child)))
  -  (container-add bin child)
  -  child)
  -
  -
  -;;; Button
  -
  -(defbinding button-pressed () nil
  -  (button button))
  -
  -(defbinding button-released () nil
  -  (button button))
  -
  -(defbinding button-clicked () nil
  -  (button button))
  -
  -(defbinding button-enter () nil
  -  (button button))
  -
  -(defbinding button-leave () nil
  -  (button button))
  -
  -
  -
  -;;; Toggle button
  -
  -(defbinding toggle-button-toggled () nil
  -  (toggle-button toggle-button))
  -
  -
  -
  -;;; Check button
  -
  -(defmethod (setf button-label) ((label string) (button check-button))
  -  (call-next-method)
  -  (setf (misc-xalign (bin-child button)) 0.0)
  -  label)
   
   
   
  
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: gtk.lisp,v 1.6 2001-10-21 23:22:04 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:     (%table-get-default-col-spacing table)))
    
  
  
  ;;; Toolbar
  
  