inst/Examples/ch-RGtk2/ex-RGtk2-button-events.R

In jverzani/ProgGUIinR: support package for "Programming Graphical User Interfaces in R"

###################################################
### code chunk number 94: CallbackExampleForButton
###################################################
window <- gtkWindow(); button <- gtkButton("click me");
window$add(button)

gSignalConnect(button, "button-press-event", # just mouse
               f = function(widget, event, data) {
                 print(event$getButton())    # which button
                 return(FALSE)               # propagate
               })
gSignalConnect(button, "clicked",            # keyboard too
               f = function(widget, ...) {
                 print("clicked")
               })