Добавлен пункт 'Закрыть всё'

This commit is contained in:
svkalinin 2022-11-23 12:46:55 +03:00
parent 15c9bd23af
commit c988843bf0

View File

@ -31,6 +31,7 @@ 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