svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Ntvs

Browse Source
This commit is contained in:
svkalinin
2022-11-11 16:22:50 +03:00
parent 0b4d0dbf5c
commit 276cc63097
4 changed files with 184 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/tree.tcl
View File

@@ -73,7 +73,7 @@ namespace eval Tree {
set id [$tree selection]
$tree tag remove selected
$tree item $id -tags selected
set values [$tree item $id -values]
set key [lindex [split $id "::"] 0]
if {$values eq "" || $key eq ""} {return}
@@ -95,7 +95,7 @@ namespace eval Tree {
set id [$tree selection]
$tree tag remove selected
$tree item $id -tags selected
set values [$tree item $id -values]
set key [lindex [split $id "::"] 0]
if {$values eq "" || $key eq ""} {return}