svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 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/gui.tcl
View File

@@ -125,7 +125,9 @@ pack $frmTool.btn_tree $frmTool.btn_search $frmTool.btn_git -side top -padx 1 -p
set frmTree [ttk::frame .frmBody.frmTree]
set tree [ttk::treeview $frmTree.tree -show tree \
-xscrollcommand [list .frmBody.frmTree.h set] -yscrollcommand [list .frmBody.frmTree.v set]]
-xscrollcommand [list .frmBody.frmTree.h set] \
-yscrollcommand [list .frmBody.frmTree.v set]]
# $tree heading #0 -text "Files tree"
# $tree column #0 -anchor e

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}