diff options
Diffstat (limited to 'library/xmfbox.tcl')
-rw-r--r-- | library/xmfbox.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index e4d0db5..e753a5e 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -399,8 +399,10 @@ proc ::tk::MotifFDialog_BuildUI {w} { bind $w <Alt-Key> [list ::tk::AltKeyInDialog $w %A] bind $data(fEnt) <Return> [list tk::MotifFDialog_ActivateFEnt $w] + bind $data(fEnt) <KP_Enter> [list tk::MotifFDialog_ActivateFEnt $w] bind $data(sEnt) <Return> [list tk::MotifFDialog_ActivateSEnt $w] - bind $w <Escape> [list tk::MotifFDialog_CancelCmd $w] + bind $data(sEnt) <KP_Enter> [list tk::MotifFDialog_ActivateSEnt $w] + bind $w <Escape> [list tk::MotifFDialog_CancelCmd $w] bind $w.bot <Destroy> {set ::tk::Priv(selectFilePath) {}} wm protocol $w WM_DELETE_WINDOW [list tk::MotifFDialog_CancelCmd $w] |