(popup <gtk-menu> ... )?

Hi,

I'm trying to resurrect my silly metacity keywise*) hack,
but (popup <gtk-menu> ...) now fails on me.  I get

       ?:  8  [popup-menu #<<keywise-app> 2afdf24deb40>]
	...
       ?:  9  [popup #<<generic> popup (2)> (#<<gtk-menu> 2afdf24dfd00> #f #f ...)]
       ?: 10* [memoize-method! #<<generic> popup (2)> (# #) (#@dispatch args 7 # ...)]
       ?: 11* (let* ((applicable #)) (cond (applicable #) (# #) (else # # #)))
       ?: 12  (cond (applicable #) (# #) (else # # #))
	...
       ?: 13  [scm-error goops-error #f ...]

    <unnamed port>: In procedure scm-error in expression (scm-error (quote goops-error) #f ...):
    <unnamed port>: No applicable method for #<<generic> popup (2)> in call (popup #<<gtk-menu> 2afdf24dfd00> #f #f #<procedure #f (x)> #f 0 0)

from this code

    (define-method (popup-menu (keywise-app <keywise-app>))
      (let ((menu? (menu-keypad keywise-app)))
	(popup (get-menu keywise-app) #f #f
	       ;; FIXME: wrap gtk_menu_popup
	       ;;(lambda (x) (menu-get-position-menu x keywise-app))
	       #f #f 0 0)))

What has changed here, or how do I debug this again?  Looking at defs

    (define-method popup
       (of-object "GtkMenu")
       (c-name "gtk_menu_popup")
       (return-type "none")
       (parameters
         '("GtkWidget*" "parent_menu_shell")
         '("GtkWidget*" "parent_menu_item")
         '("GtkMenuPositionFunc" "func")
         '("gpointer" "data")
         '("guint" "button")
         '("guint32" "activate_time")
       )
     )

at least the number of arguments looks ok.  Anything changed wrt empty
values for gpointer or Foo*?

Greetings,
Jan.

*) see http://lilypond.org/~janneke/software/keywise.scm

-- 
Jan Nieuwenhuizen <[email protected]> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org