diff --git a/lib/menu.tcl b/lib/menu.tcl index 1993f14..4526087 100644 --- a/lib/menu.tcl +++ b/lib/menu.tcl @@ -20,8 +20,7 @@ proc GetFileMenu {m} { } $m add command -label [::msgcat::mc "Save file"] -command {FileOper::Save}\ -accelerator "Ctrl+S" - $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas}\ - -accelerator "Shift+Ctrl+S" + $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas} $m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\ -accelerator "Ctrl+w" $m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}