Украшательства интерфейса - Реакция на нажатие кнопки в панели инструментов теперь зависит от контекста

2022-11-22 16:29:26 +03:00
parent 0121f1ea8c
commit 83d9d8ea02
3 changed files with 81 additions and 4 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -167,11 +167,26 @@ namespace eval FileOper {
                    Close
                }
            }
+            set nextProj [$tree next $treeItem]
+            # puts $nextProj
+            set prevProj [$tree prev $treeItem]
+            # puts $prevProj
+            if {$nextProj ne ""} {
+                set activeProject [$tree item $nextProj -values]
+                puts $activeProject
+            } elseif {$prevProj ne ""} {
+                set activeProject [$tree item $prevProj -values]
+                puts $activeProject
+            } else {
+                unset activeProject
+                .frmStatus.lblGitLogo configure -image pixel
+                .frmStatus.lblGit configure -text ""
+            }
            $tree delete $treeItem
+            unset nextProj
+            unset prevProj
        }
-        set activeProject ""
-        .frmStatus.lblGitLogo configure -image pixel
-        .frmStatus.lblGit configure -text ""
+
    }

    proc CloseAll {} {