svk
/
projman
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases Wiki Activity

Добавил разделитель

master
svkalinin 2022-11-23 13:20:18 +03:00
parent dbb8c3f911
commit 9bb25eb817
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/menu.tcl
View File

@ -22,6 +22,10 @@ proc GetFileMenu {m} {
-accelerator "Ctrl+S"
$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}
$m add separator
$m add command -label [::msgcat::mc "Open folder"] -accelerator "Ctrl+K" -command {
set folderPath [FileOper::OpenFolderDialog]
if {$folderPath != ""} {
@ -31,7 +35,6 @@ proc GetFileMenu {m} {
}
}
$m add command -label [::msgcat::mc "Close folder"] -command {FileOper::CloseFolder}
$m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}
#$m add command -label [::msgcat::mc "Open"] -command {FileDialog $tree open}\
#-font $fontNormal -accelerator "Ctrl+O" -state disable