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

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

lib/procedure.tcl

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

projman.tcl

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