OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0030802: Draw Harness - add scrollbars to DFBrowse

Browse Source
This commit is contained in:
kgv 2019-06-24 11:38:54 +03:00 committed by apn
parent 64a4475285
commit 95bde2af7f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/DrawResources/dftree.tcl
View File

@ -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