Improved gtk threading: added with-* macros, functions to call gtk-main

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

diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp
index 5c3df95..4a8ba7e 100644 (file)
--- a/gtk/gtk.menu.lisp
+++ b/gtk/gtk.menu.lisp
@@ -38,7 +38,7 @@
                           (mem-ref y :int) 0
                           (mem-ref push-in :boolean) nil))))
 
-(defun menu-popup (menu &key parent-menu-shell parent-menu-item position-func (button 0) (activate-time (gtk-get-current-event-time)))
+(defun menu-popup (menu &key parent-menu-shell parent-menu-item position-func (button 0) (activate-time (current-event-time)))
   (if position-func
       (with-stable-pointer (ptr position-func)
         (gtk-menu-popup menu parent-menu-shell parent-menu-item