Исправлено переключение отображения панели (лево/право) в без перезапуска программы.

2022-11-23 10:29:53 +03:00
parent 83d9d8ea02
commit 903747d8ab
3 changed files with 7 additions and 4 deletions
--- a/lib/menu.tcl
+++ b/lib/menu.tcl
@@ -75,9 +75,9 @@ proc GetViewMenu {m} {
    menu $m.panelSide 
    $m add cascade -label [::msgcat::mc "Panel side"] -menu $m.panelSide 
    $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"] \
-        -variable cfgVariables(filesPanelPlace) -value right
+        -variable cfgVariables(filesPanelPlace) -value right -command ViewFilesTree
        
    $m add checkbutton -label [::msgcat::mc "Show the Menu"] -command ViewMenuBar \
        -variable cfgVariables(menuShow) -onvalue true -offvalue false