http://www.perlmonks.org?node_id=179961


in reply to Tk binding slip up (dissapearance?)

You can try doing this:

a function, say initialize_bind where you put all the thing you're going to bind.
Then you can call it before Mainloop;

my 2 cents (there's too few code ;) )