OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
Code

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