[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(popup <gtk-menu> ... )?
From: |
Jan Nieuwenhuizen |
Subject: |
(popup <gtk-menu> ... )? |
Date: |
Thu, 13 Dec 2007 22:18:30 +0100 |
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)> (# #) (address@hidden
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 <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien | http://www.lilypond.org
- (popup <gtk-menu> ... )?,
Jan Nieuwenhuizen <=