tktreectrl/demos/demo.tcl

149     if {[ttk::style layout TreeCtrl] ne ""} {
157 	namespace export style
162 	    namespace import ::style
323 	foreach theme [lsort -dictionary [ttk::style theme names]] {
367     set S [$T style create s1]
368     $T style elements $S {e3 e1}
369     $T style layout $S e3 -union [list e1] -ipadx 1 -ipady {0 1}
371     set S [$T style create s2]
372     $T style elements $S {e3 e1 e2}
373     $T style layout $S e1 -width 20 -sticky w
374     $T style layout $S e3 -union [list e1 e2] -ipadx 1 -ipady {0 1}
376     set S [$T style create s3]
377     $T style elements $S {e4}
454 	$T item style set $I 0 s3
475 	$T item style set $I2 C0 s2
562 	-yscrollcommand "$f.sv set" -xscrollcommand "$f.sh set"
564     $::scrollbarCmd $f.sh -orient horizontal -command "$f.t xview"
569     grid configure $f.sh -row 1 -column 0 -sticky we
609 	source [Path style-editor.tcl]
646     set S [$T style create s1]
647     $T style elements $S {e3 e1}
648     $T style layout $S e3 -union [list e1] -ipadx 1 -ipady {0 1}
678     foreach theme [lsort -dictionary [ttk::style theme names]] {
681 	ttk::style theme settings $theme {
687 	    foreach element [lsort -dictionary [ttk::style element names]] {
691 		set options [ttk::style element options $element]
704 	    set styles [list "."] ; # [ttk::style names] please!
705 	    foreach style [lsort -dictionary $styles] {
709 		set cfg [ttk::style configure $style]
710 		set I3 [$T item create -button [llength $cfg] -open no -tags style -parent $I2]
711 		$T item text $I3 C0 $style
713 		    set I4 [$T item create -open no -tags {style option} -parent $I3]
751 	$::scrollbarCmd $f.sh -orient horizontal -command "$f.t xview"
752 	#		$f.t configure -xscrollcommand "$f.sh set"
753 	$f.t notify bind $f.sh <Scroll-x> { sbset %W %l %u }
754 	bind $f.sh <ButtonPress-1> "focus $f.t"
766 	grid configure $f.sh -row 1 -column 0 -sticky we
987     $m add cascade -label "Line style" -menu $m2
1236     $t style create s1
1237     $t style elements s1 {e2 e1}
1239     $t style layout s1 e2 -union [list e1] -ipadx 2 -ipady {0 1} -iexpand e
1271 	#		$t item style set $item C0 s1
1319     if {[llength [$t style names]] == 0} {
1325 	$t style create s1
1326 	$t style elements s1 {e3 e1}
1327 	$t style layout s1 e3 -union [list e1] -ipadx 1 -ipady {0 1}
1329 	$t style create s2
1330 	$t style elements s2 {e3 e1 e2}
1331 	$t style layout s2 e1 -padx {0 4}
1332 	$t style layout s2 e3 -union [list e1 e2] -ipadx 1 -ipady {0 1}
1341 	$t item style set $item C0 s1
1346 	    lassign $list name x y default current
1349 		$t item style set $item2 C0 s1
1350 		$t item element configure $item2 C0 e1 -text [list $name $current]
1352 		$t item style set $item2 C0 s2
1353 		$t item element configure $item2 C0 e1 -text $name + e2 -text [list $current]
1360     # One item for each style in the demo list
1361     foreach style [lsort -dictionary [$T style names]] {
1363 	$t item style set $item C0 s1
1364 	$t item text $item C0 "Style $style"
1366 	# One item for each element in the style
1367 	foreach elem [$T style elements $style] {
1369 	    $t item style set $item2 C0 s1
1372 	    # One item for each layout option for this element in this style
1373 	    foreach {option value} [$T style layout $style $elem] {
1376 		$t item style set $item3 C0 s1
1397     if {[llength [$t style names]] == 0} {
1403 	$t style create s1
1404 	$t style elements s1 {e3 e1}
1405 	$t style layout s1 e3 -union [list e1] -ipadx {1 2} -ipady {0 1}
1407 	$t style create s2
1408 	$t style elements s2 {e3 e1 e2}
1409 	$t style layout s2 e1 -padx {0 4}
1410 	$t style layout s2 e3 -union [list e1 e2] -ipadx 1 -ipady {0 1}
1417     foreach style [$T item style set $item] column [$T column list] {
1419 	$t item style set $item2 C0 s1
1420 	if {$style ne ""} {
1422 		-text "Column $column: Style $style"
1425 		-text "Column $column: no style"
1428 	# One item for each element in this style
1429 	if {[string length $style]} {
1431 	    foreach elem [$T item style elements $item $column] {
1434 		$t item style set $item3 C0 s1
1440 		    lassign $list name x y default current
1442 		    set masterDefault [$T element cget $elem $name]
1450 			$t item style set $item4 C0 s1
1451 			$t item element configure $item4 C0 e1 -text "$name [list $current]"
1453 			$t item style set $item4 C0 s2
1454 			$t item element configure $item4 C0 e1 -text $name + e2 -text [list $current]
1512     # DontDelete is not a special name it just needs to be different
1526     eval $T style delete [$T style names]
1585     set S [$T style create STYLE -orient vertical]
1586     $T style elements $S {elemSelImg elemImg elemSelTxt elemTxt}
1587     $T style layout $S elemSelImg -union elemImg -ipadx 6 -ipady 6
1588     $T style layout $S elemSelTxt -union elemTxt
1589     $T style layout $S elemImg -pady {0 6}
1593 	$T item style set $I 0 $S
1619     set S [$T style create STYLE -orient vertical]
1620     $T style elements $S {elemSelImg elemImg elemSelTxt elemTxt}
1621     $T style layout $S elemSelImg -union elemImg \
1623     $T style layout $S elemSelTxt -union elemTxt
1624     $T style layout $S elemImg -pady {0 6}
1625     $T style layout $S elemImg -expand n
1626     $T style layout $S elemTxt -expand s
1630 	$T item style set $I 0 $S
1850     [DemoList] style layout styFolder elemTxtName -squeeze x
1851     [DemoList] style layout styFile elemTxtName -squeeze x