This is the mail archive of the
guile-gtk@sourceware.cygnus.com
mailing list for the Guile project.
Re: Right mouse click on buttons?
- To: "Greg J. Badros" <gjb at cs dot washington dot edu>
- Subject: Re: Right mouse click on buttons?
- From: Marius Vollmer <mvo at zagadka dot ping dot de>
- Date: 05 Dec 1999 11:41:58 +0100
- Cc: guile-gtk at sourceware dot cygnus dot com
- References: <qrrd7smozma.fsf@clavicle.cs.washington.edu>
"Greg J. Badros" <gjb@cs.washington.edu> writes:
> Anybody know how to make GTk+ generate a signal on a right-mouse
> click on a button (or a button-bar)?
Try the "button_press_event" signal, like so
(use-modules (gtk gtk)
(gtk gdk))
(let ((w (gtk-window-new 'toplevel))
(b (gtk-button-new-with-label "Click Me Right!")))
(gtk-container-add w b)
(gtk-signal-connect b "button_press_event"
(lambda (ev)
(cond
((= (gdk-event-button ev) 3)
(display "Yes!\n")
#t)
(else
#f))))
(gtk-widget-show-all w)
(gtk-standalone-main w))
- Marius