From mboxrd@z Thu Jan  1 00:00:00 1970
From: Marius Vollmer <mvo@zagadka.ping.de>
To: "Greg J. Badros" <gjb@cs.washington.edu>
Cc: guile-gtk@sourceware.cygnus.com
Subject: Re: Right mouse click on buttons?
Date: Sun, 05 Dec 1999 05:04:00 -0000
Message-id: <874sdxhdop.fsf@zagadka.ping.de>
References: <qrrd7smozma.fsf@clavicle.cs.washington.edu>
X-SW-Source: 1999-q4/msg00057.html

"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