X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.menu.lisp;h=a316e212db9a2a797e5c5b405a9ed96d5b7c5a21;hb=cdf32530f28cf04631c1366b6ff81b7f6650b5f6;hp=7ddd0f81ca60111f05eb02ccd88d72288889dc29;hpb=b6c62d5549aafd422300412c2a3f53a6f9a415b9;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)