Reports

This complete answer was provided me by an expert.

library(tcltk)
catn=function(...) cat(...,'\n')

wtop = tktoplevel(width=400,height=400)

# Set up event handlers
eventcallback1 = function(d) { catn("eventcallback1",d) }
eventcallback2 = function(d) { catn("eventcallback2",d) }
keycallback1 = function(K) { catn("keycallback1",K) }
keycallback2 = function(K) { catn("keycallback2",K) }

tkbind('all','<<EVENT>>',paste0('+', .Tcl.callback(eventcallback1)))
tkbind('all','<<EVENT>>',paste0('+', .Tcl.callback(eventcallback2)))
tkbind('all','<Key>',paste0('+', .Tcl.callback(keycallback1)))
tkbind('all','<Key>',paste0('+', .Tcl.callback(keycallback2)))

To check it out enter into the R session "tkevent.generate(wtop,'<>',data='ZZZZZ')" with various values of data. And set focus to the toplevel and type things.

79391884