From: kgv <kgv@opencascade.com>
Date: Mon, 24 Jun 2019 08:38:54 +0000 (+0300)
Subject: 0030802: Draw Harness - add scrollbars to DFBrowse
X-Git-Tag: V7_4_0_beta~102
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=95bde2af7f2f47158d08e43249ebc4a9dc22fc40;p=occt-copy.git

0030802: Draw Harness - add scrollbars to DFBrowse
---

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 <<TreeviewOpen>> [list DFTREE:Tree:Open $DDF_Browser $w]
   $tree1 tag configure Label -font 9x15bold -foreground DarkGreen
   #$tree1 tag configure Attribute -font 9x15 -background bisque3