(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
(export 'toolbar-insert)
-(defcfun (toolbar-item-index "gtk_toolbar_item_index") :int
+(defcfun (toolbar-item-index "gtk_toolbar_get_item_index") :int
(toolbar g-object)
(item g-object))