[gtk-cffi-cvs] CVS gtk-cffi/gtk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gtk
In directory tiger.common-lisp.net:/tmp/cvs-serv2159/gtk

Modified Files:
	package.lisp widget.lisp 
Log Message:
Fixed name clash in widget and menu-item


--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/08/28 10:30:13	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/08/28 15:38:31	1.5
@@ -72,7 +72,7 @@
    #:no-show-all
    #:colormap
    #:sensitive
-   #:accel-path
+   #:widget-accel-path
    #:style-context
    #:device-events
    #:device-enabled
@@ -377,7 +377,7 @@
    #:right-justified
    #:use-underline
    #:submenu
-   
+   #:accel-path
 
    #:tool-shell
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2011/08/28 10:30:13	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2011/08/28 15:38:31	1.4
@@ -109,7 +109,8 @@
 (defcfun gtk-widget-set-accel-path :void 
   (widget pobject) (accel-path :string) (accel-group pobject))
 
-(defmethod (setf accel-path) (value (widget widget) (accel-group accel-group))
+(defmethod (setf widget-accel-path) (value (widget widget) 
+                                     (accel-group accel-group))
   (gtk-widget-set-accel-path widget value accel-group))
          
 (defgtkfun list-accel-closures g-list widget)