diff --git a/lib/menu.tcl b/lib/menu.tcl
index 14a5a8f..d80afe6 100644
--- 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
diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index ed685e6..51b3f07 100644
--- a/lib/procedure.tcl
+++ b/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 {
diff --git a/projman.tcl b/projman.tcl
index 85194c5..d17e473 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 22112022145344
+# Build: 23112022102838
 ######################################################
 
 # определим текущую версию, релиз и т.д.