From 903747d8abe16843577fb236a1ead29e7eb0ebab Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 23 Nov 2022 10:29:53 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=BE=20=D0=BF=D0=B5=D1=80=D0=B5=D0=BA=D0=BB=D1=8E?=
 =?UTF-8?q?=D1=87=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BE=D1=82=D0=BE=D0=B1=D1=80?=
 =?UTF-8?q?=D0=B0=D0=B6=D0=B5=D0=BD=D0=B8=D1=8F=20=D0=BF=D0=B0=D0=BD=D0=B5?=
 =?UTF-8?q?=D0=BB=D0=B8=20(=D0=BB=D0=B5=D0=B2=D0=BE/=D0=BF=D1=80=D0=B0?=
 =?UTF-8?q?=D0=B2=D0=BE)=20=D0=B2=20=D0=B1=D0=B5=D0=B7=20=D0=BF=D0=B5?=
 =?UTF-8?q?=D1=80=D0=B5=D0=B7=D0=B0=D0=BF=D1=83=D1=81=D0=BA=D0=B0=20=D0=BF?=
 =?UTF-8?q?=D1=80=D0=BE=D0=B3=D1=80=D0=B0=D0=BC=D0=BC=D1=8B.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/menu.tcl      | 4 ++--
 lib/procedure.tcl | 5 ++++-
 projman.tcl       | 2 +-
 3 files changed, 7 insertions(+), 4 deletions(-)

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
 ######################################################
 
 # определим текущую версию, релиз и т.д.