$dialogBox->bind('' => undef); #### $dialogBox->bind('' => sub{ #get currently focused button $dialogBox->configure(-focus => $my_focussed_button); # there is also forceFocus which may help force it });