anchor.diff:    (when group-with
       (radio-menu-item-add-to-group item group-with)))
     
  +
  +
  +;;; Toggle button
  +
  +(defbinding toggle-button-toggled () nil
  +  (toggle-button toggle-button))
  +
   
   
   ;;; Window
  
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.10 2002-03-24 21:54:06 espen Exp $
  
  
  (in-package "GTK")
  
negative.code: ;;; Drawing area -- no functions
  
  
  ;;; Entry
  
  (defbinding  entry-get-layout () pango:layout
    (entry entry))
  
  (defbinding entry-get-layout-offsets () nil
    (entry entry)
    (x int :out)
    (y int :out))
  
  
  
  ;;; Label
  
  (defbinding label-get-layout-offsets () nil
    (labe label)
    (x int :out)
    (y int :out))
  
  (defbinding label-select-region () nil
    (label label)
    (start int)
    (end int))
  
  (defbinding  label-get-text () string
    (label label))
  
  (defbinding label-get-layout () pango:layout
    (label label))
  
  (defbinding  label-get-selection-bounds () boolean
    (label label)
    (start int :out)
    (end int :out))
  
  
  
  