anchor.diff:  	(format nil "Gtk+ v~A.~A" major minor) 
         (format nil "Gtk+ v~A.~A.~A" major minor micro))))
   
  -(defbinding get-default-language () (copy-of pango:language))
  +(defun clg-version ()
  +  "clg CVS version")
   
   
   ;;;; Initalization
  
positive.code:   (current-widget widget :out))
  
  
  ;;; Rc
  
  (defbinding rc-add-default-file (filename) nil
    ((namestring (truename filename)) string))
  
negative.code: 
  (defbinding grab-remove () nil
    (widget widget))
  
  (defbinding get-default-language () (copy-of pango:language))
  
  
  ;;; About dialog
  