Добавлен пункт 'Закрыть всё'
This commit is contained in:
parent
15c9bd23af
commit
c988843bf0
|
@ -31,7 +31,8 @@ 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
|
||||||
$m add separator
|
$m add separator
|
||||||
|
|
Loading…
Reference in New Issue
Block a user