Typo.

[cl-gtk2.git] / gtk / gtk.menu.lisp

diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp
index 6062169..a316e21 100644 (file)
--- 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)
 
@@ -72,11 +72,6 @@
 
 (export 'menu-attached-to-widget)
 
-(defcfun (radio-menu-item-group "gtk_radio_menu_item_get_group") (glist (g-object radio-menu-item) :free-from-foreign nil)
-  (radio-menu-item (g-object radio-menu-item)))
-
-(export 'radio-menu-item-group)
-
 (defcfun (tool-shell-rebuild-menu "gtk_tool_shell_rebuild_menu") :void
   (shell (g-object tool-shell)))