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

2022-11-23 10:29:53 +03:00
parent 83d9d8ea02
commit 903747d8ab
3 changed files with 7 additions and 4 deletions
--- 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 {