TclTk._addcallback(ca): register callback
ca: callback(TclTkCallback)
53 54 55 56
# File 'lib/tcltk.rb', line 53 def TclTk._addcallback(ca) print("_addcallback: ", ca.to_s(), "\n") if $DEBUG @callback[ca.to_s()] = ca end