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

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

Browse Source
This commit is contained in:
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" -accelerator "Ctrl+S"
$m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\ $m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\
-accelerator "Ctrl+w" -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 { $m add command -label [::msgcat::mc "Open folder"] -accelerator "Ctrl+K" -command {
set folderPath [FileOper::OpenFolderDialog] set folderPath [FileOper::OpenFolderDialog]
if {$folderPath != ""} { 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 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}\ #$m add command -label [::msgcat::mc "Open"] -command {FileDialog $tree open}\
#-font $fontNormal -accelerator "Ctrl+O" -state disable #-font $fontNormal -accelerator "Ctrl+O" -state disable