anchor.diff:  ;; 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.19 2004-11-21 17:39:27 espen Exp $
  +;; $Id: gtk.lisp,v 1.20 2004-12-04 00:34:49 espen Exp $
   
   
   (in-package "GTK")
  
positive.code: 
  ;;; Stock items
  
  (defbinding stock-lookup () boolean
    (stock-id string)
    ((make-instance 'stock-item) stock-item :return))
    
  
  
  
  ;;; Tooltips
  
negative.code: 
  ;;; Window
  
  (defmethod initialize-instance ((window window) &rest initargs &key accel-group)
    (declare (ignore accel-group))
    (call-next-method)
    (mapc #'(lambda (accel-group)
  	    (window-add-accel-group window accel-group))
          (get-all initargs :accel-group)))
  
  
  (defbinding window-set-wmclass () nil
    (window window)
    (wmclass-name string)
  