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 10:29:53 +03:00
parent 83d9d8ea02
commit 903747d8ab
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/menu.tcl
View File

@ -75,9 +75,9 @@ proc GetViewMenu {m} {
menu $m.panelSide menu $m.panelSide
$m add cascade -label [::msgcat::mc "Panel side"] -menu $m.panelSide $m add cascade -label [::msgcat::mc "Panel side"] -menu $m.panelSide
$m.panelSide add radiobutton -label [::msgcat::mc "Left"] \ $m.panelSide add radiobutton -label [::msgcat::mc "Left"] \
-variable cfgVariables(filesPanelPlace) -value left -variable cfgVariables(filesPanelPlace) -value left -command ViewFilesTree
$m.panelSide add radiobutton -label [::msgcat::mc "Right"] \ $m.panelSide add radiobutton -label [::msgcat::mc "Right"] \
-variable cfgVariables(filesPanelPlace) -value right -variable cfgVariables(filesPanelPlace) -value right -command ViewFilesTree
$m add checkbutton -label [::msgcat::mc "Show the Menu"] -command ViewMenuBar \ $m add checkbutton -label [::msgcat::mc "Show the Menu"] -command ViewMenuBar \
-variable cfgVariables(menuShow) -onvalue true -offvalue false -variable cfgVariables(menuShow) -onvalue true -offvalue false

5
lib/procedure.tcl
View File

@ -32,10 +32,13 @@ proc ViewFilesTree {{hotkey "false"}} {
.frmBody.panel forget .frmBody.frmTree .frmBody.panel forget .frmBody.frmTree
} else { } else {
switch $cfgVariables(filesPanelPlace) { switch $cfgVariables(filesPanelPlace) {
"left" { "left" {
.frmBody.panel insert 0 .frmBody.frmTree .frmBody.panel insert 0 .frmBody.frmTree
} }
"right" { "right" {
if {[lsearch -exact [.frmBody.panel panes] .frmBody.frmTree] != -1} {
.frmBody.panel forget .frmBody.frmTree
}
.frmBody.panel add .frmBody.frmTree .frmBody.panel add .frmBody.frmTree
} }
default { default {

2
projman.tcl
View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 22112022145344 # Build: 23112022102838
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.