From 95bde2af7f2f47158d08e43249ebc4a9dc22fc40 Mon Sep 17 00:00:00 2001 From: kgv Date: Mon, 24 Jun 2019 11:38:54 +0300 Subject: [PATCH] 0030802: Draw Harness - add scrollbars to DFBrowse --- src/DrawResources/dftree.tcl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/DrawResources/dftree.tcl b/src/DrawResources/dftree.tcl index 1481e74e0e..44d0e9e3f1 100755 --- a/src/DrawResources/dftree.tcl +++ b/src/DrawResources/dftree.tcl @@ -78,13 +78,19 @@ proc dftree { DDF_Browser } { ## ] set w .$DDF_Browser - toplevel $w -height 400 -width 700 -background bisque3 + toplevel $w -width 700 -height 400 -background bisque3 + wm minsize $w 700 400 ######## # Tree # ######## - set tree1 [ttk::treeview $w.tree -show tree] + #set tree1 [ttk::treeview $w.tree -show tree] + set tree1 [ttk::treeview $w.tree -show tree -xscrollcommand "$w.tree.xscroll set" -yscrollcommand "$w.tree.yscroll set"] + set aScrollX [ttk::scrollbar $w.tree.xscroll -command "$w.tree xview" -orient horizontal] + set aScrollY [ttk::scrollbar $w.tree.yscroll -command "$w.tree yview"] + pack $aScrollX -side bottom -fill x + pack $aScrollY -side right -fill y $tree1 tag bind Label <> [list DFTREE:Tree:Open $DDF_Browser $w] $tree1 tag configure Label -font 9x15bold -foreground DarkGreen #$tree1 tag configure Attribute -font 9x15 -background bisque3