X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.menu.lisp;h=a316e212db9a2a797e5c5b405a9ed96d5b7c5a21;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=7ddd0f81ca60111f05eb02ccd88d72288889dc29;hpb=280cc197440f3dec31bcbcd88b001b740be6e697;p=cl-gtk2.git

diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp
index 7ddd0f8..a316e21 100644
--- a/gtk/gtk.menu.lisp
+++ b/gtk/gtk.menu.lisp
@@ -44,7 +44,7 @@
         (gtk-menu-popup menu parent-menu-shell parent-menu-item
                         (callback gtk-menu-position-func-callback)
                         ptr button activate-time))
-      (gtk-menu-popup menu parent-menu-shell parent-menu-item (callback gtk-menu-position-func-callback) (null-pointer) (null-pointer) activate-time)))
+      (gtk-menu-popup menu parent-menu-shell parent-menu-item (null-pointer) (null-pointer) button activate-time)))
 
 (export 'menu-popup)