summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--demos/bitmaps.tcl20
-rw-r--r--demos/explorer.tcl62
-rw-r--r--demos/help.tcl44
-rw-r--r--demos/imovie.tcl55
-rw-r--r--demos/layout.tcl20
-rw-r--r--demos/mailwasher.tcl88
-rw-r--r--demos/outlook-folders.tcl21
-rw-r--r--demos/outlook-newgroup.tcl44
-rw-r--r--demos/random.tcl22
-rw-r--r--demos/www-options.tcl46
10 files changed, 366 insertions, 56 deletions
diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl
index a129a39..4f0f700 100644
--- a/demos/bitmaps.tcl
+++ b/demos/bitmaps.tcl
@@ -5,12 +5,24 @@ proc DemoBitmaps {} {
set T .f2.f1.t
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no \
-selectmode browse -orient horizontal -wrap "5 items" \
-showheader no -backgroundimage sky
+ #
+ # Create columns
+ #
+
$T column create -itembackground {gray90 {}}
+ #
+ # Create elements
+ #
+
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}]
$T element create elemSelTxt rect -fill [list $::SystemHighlight {selected focus}] \
-showfocus yes
@@ -21,6 +33,10 @@ proc DemoBitmaps {} {
-background linen \
-bitmap {question {selected}}
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create STYLE -orient vertical]
$T style elements $S {elemSelBmp elemBmp elemSelTxt elemTxt}
$T style layout $S elemSelBmp -union elemBmp \
@@ -32,6 +48,10 @@ proc DemoBitmaps {} {
# Set default item style
$T configure -defaultstyle [list $S]
+ #
+ # Create items and assign styles
+ #
+
set bitmapNames [list error gray75 gray50 gray25 gray12 hourglass info \
questhead question warning]
diff --git a/demos/explorer.tcl b/demos/explorer.tcl
index dc37de7..a796cad 100644
--- a/demos/explorer.tcl
+++ b/demos/explorer.tcl
@@ -52,12 +52,21 @@ proc DemoExplorerDetails {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode extended -xscrollincrement 20 \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
InitPics small-*
+ #
+ # Create columns
+ #
+
$T column create -text Name -tag name -width 200 \
-arrow up -arrowpad 6
$T column create -text Size -tag size -justify right -width 60 \
@@ -65,6 +74,10 @@ proc DemoExplorerDetails {} {
$T column create -text Type -tag type -width 120
$T column create -text Modified -tag modified -width 120
+ #
+ # Create elements
+ #
+
$T element create e1 image -image {small-folderSel {selected} small-folder {}}
$T element create e2 text -fill [list $::SystemHighlightText {selected focus}] \
-lines 1
@@ -73,6 +86,10 @@ proc DemoExplorerDetails {} {
$T element create txtDate text -datatype time -format "%d/%m/%y %I:%M %p" -lines 1
$T element create e4 rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# image + text
set S [$T style create styName -orient horizontal]
$T style elements $S {e4 e1 e2}
@@ -107,6 +124,10 @@ proc DemoExplorerDetails {} {
%T item text %I 0 %t
}
+ #
+ # Create items and assign styles
+ #
+
set scriptDir {
set item [$T item create]
$T item style set $item 0 styName 2 styType 3 styDate
@@ -212,6 +233,10 @@ proc DemoExplorerLargeIcons {} {
# Item height is 32 for icon, 4 padding, 3 lines of text
set itemHeight [expr {32 + 4 + [font metrics [$T cget -font] -linespace] * 3}]
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no \
-selectmode extended -wrap window -orient horizontal \
-itemheight $itemHeight -showheader no \
@@ -219,13 +244,25 @@ proc DemoExplorerLargeIcons {} {
InitPics big-*
+ #
+ # Create columns
+ #
+
$T column create -width 75
+ #
+ # Create elements
+ #
+
$T element create elemImg image -image {big-folderSel {selected} big-folder {}}
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
-justify center -lines 1 -width 71 -wrap word
$T element create elemSel rect -fill [list $::SystemHighlight {selected focus} gray {selected}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# image + text
set S [$T style create STYLE -orient vertical]
$T style elements $S {elemSel elemImg elemTxt}
@@ -245,6 +282,10 @@ proc DemoExplorerLargeIcons {} {
%T item text %I 0 %t
}
+ #
+ # Create items and assign styles
+ #
+
set scriptDir {
set item [$T item create]
$T item style set $item 0 STYLE
@@ -304,19 +345,36 @@ proc DemoExplorerList {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode extended -wrap window -showheader no \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
InitPics small-*
+ #
+ # Create columns
+ #
+
$T column create -widthhack yes
+ #
+ # Create elements
+ #
+
$T element create elemImg image -image {small-folderSel {selected} small-folder {}}
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
-lines 1
$T element create elemSel rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# image + text
set S [$T style create STYLE]
$T style elements $S {elemSel elemImg elemTxt}
@@ -336,6 +394,10 @@ proc DemoExplorerList {} {
%T item text %I 0 %t
}
+ #
+ # Create items and assign styles
+ #
+
set scriptDir {
set item [$T item create]
$T item style set $item 0 STYLE
diff --git a/demos/help.tcl b/demos/help.tcl
index 803fd72..8d8638d 100644
--- a/demos/help.tcl
+++ b/demos/help.tcl
@@ -9,22 +9,39 @@ proc DemoHelpContents {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode browse
InitPics help-*
+ #
+ # Create columns
+ #
+
$T column create -text "Help Contents"
# Define a new item state
$T state define mouseover
+ #
+ # Create elements
+ #
+
$T element create e1 image -image help-page
$T element create e2 image -image {help-book-open {open} help-book-closed {}}
$T element create e3 text -fill [list $::SystemHighlightText {selected focus} blue {mouseover}] \
-font [list "[$T cget -font] underline" {mouseover}]
$T element create e4 rect -fill [list $::SystemHighlight {selected focus}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# book
set S [$T style create s1]
$T style elements $S {e4 e1 e3}
@@ -39,6 +56,10 @@ proc DemoHelpContents {} {
$T style layout $S e3 -expand ns
$T style layout $S e4 -union [list e3] -iexpand ns -ipadx 2
+ #
+ # Create items and assign styles
+ #
+
set parentList [list root {} {} {} {} {} {}]
set parent root
foreach {depth style text} {
@@ -121,13 +142,26 @@ proc DemoHelpContents2 {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode browse
InitPics help-*
+ #
+ # Create columns
+ #
+
$T column create -text "Help Contents"
+ #
+ # Create elements
+ #
+
$T element create e1 image -image help-page
$T element create e2 image -image {help-book-open {open} help-book-closed {}}
$T element create e3 text -fill [list $::SystemHighlightText {selected focus}]
@@ -135,6 +169,10 @@ proc DemoHelpContents2 {} {
$T element create e5 text -fill [list $::SystemHighlightText {selected focus} blue {}] \
-font "[$T cget -font] underline"
+ #
+ # Create styles using the elements
+ #
+
# book
set S [$T style create s1]
$T style elements $S {e4 e1 e3}
@@ -163,6 +201,10 @@ proc DemoHelpContents2 {} {
$T style layout $S e5 -expand ns
$T style layout $S e4 -union [list e5] -iexpand ns -ipadx {1 2}
+ #
+ # Create items and assign styles
+ #
+
set parentList [list root {} {} {} {} {} {}]
set parent root
foreach {depth style text} {
@@ -327,7 +369,7 @@ proc TreeCtrl::HelpMotion {w x y} {
return
}
-# Alternate implementation doesn't rely on mouseover state
+# Alternate implementation that does not rely on run-time states
proc TreeCtrl::HelpMotion2 {w x y} {
variable Priv
set id [$w identify $x $y]
diff --git a/demos/imovie.tcl b/demos/imovie.tcl
index ac05335..bf73da3 100644
--- a/demos/imovie.tcl
+++ b/demos/imovie.tcl
@@ -5,10 +5,18 @@ proc DemoIMovie {} {
set T .f2.f1.t
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no \
-selectmode browse -orient horizontal -wrap window \
-showheader no -background #dcdcdc
+ #
+ # Create columns
+ #
+
$T column create
InitPics imovie-*
@@ -29,6 +37,10 @@ proc DemoIMovie {} {
}
}
+ #
+ # Create elements
+ #
+
$T element create elemTime text -font [list $font1]
$T element create elemName text -font [list $font2] -lines 1 -width 80
$T element create elemRect rect -fill {#ffdc5a {selected} white {}} \
@@ -36,6 +48,10 @@ proc DemoIMovie {} {
$T element create elemImg image
$T element create elemShadow rect -outline gray -outlinewidth 1 -open wn
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create STYLE -orient vertical]
$T style elements $S {elemShadow elemRect elemTime elemImg elemName}
$T style layout $S elemShadow -detach yes -padx {1 2} -pady {1 2} -iexpand es
@@ -48,24 +64,28 @@ proc DemoIMovie {} {
# Set default item style
$T configure -defaultstyle [list $S]
-for {set i 0} {$i < 5} {incr i} {
- foreach {time name image} {
- 15:20 "Clip 1" imovie-01
- 19:18 "Clip 2" imovie-02
- 07:20 "Clip 3" imovie-03
- 07:20 "Clip 4" imovie-04
- 07:20 "Clip 5" imovie-05
- 07:20 "Clip 6" imovie-06
- 07:20 "Clip 7" imovie-07
- } {
- set I [$T item create]
-# $T item style set $I 0 $S
- $T item element configure $I 0 elemTime -text $time
- $T item element configure $I 0 elemImg -image $image
- $T item element configure $I 0 elemName -text $name
- $T item lastchild root $I
+ #
+ # Create items and assign styles
+ #
+
+ for {set i 0} {$i < 5} {incr i} {
+ foreach {time name image} {
+ 15:20 "Clip 1" imovie-01
+ 19:18 "Clip 2" imovie-02
+ 07:20 "Clip 3" imovie-03
+ 07:20 "Clip 4" imovie-04
+ 07:20 "Clip 5" imovie-05
+ 07:20 "Clip 6" imovie-06
+ 07:20 "Clip 7" imovie-07
+ } {
+ set I [$T item create]
+# $T item style set $I 0 $S
+ $T item element configure $I 0 elemTime -text $time
+ $T item element configure $I 0 elemImg -image $image
+ $T item element configure $I 0 elemName -text $name
+ $T item lastchild root $I
+ }
}
-}
$T notify bind $T <Edit-accept> {
%T item element configure %I %C %E -text %t
@@ -113,7 +133,6 @@ proc iMovieButton1 {T x y} {
$T.entry selection clear
scan [$T item bbox $I] "%d %d %d %d" x1 y1 x2 y2
place $T.entry -x [expr {$x1 + 1}] -width [expr {$x2 - $x1 - 5}]
-puts @[expr {$x - ($x1 + 1)}]
$T.entry icursor [$T.entry index @[expr {$x - ($x1 + 1)}]]
}
}
diff --git a/demos/layout.tcl b/demos/layout.tcl
index 4476650..7a3ca89 100644
--- a/demos/layout.tcl
+++ b/demos/layout.tcl
@@ -5,11 +5,23 @@ proc DemoLayout {} {
set T .f2.f1.t
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showrootbutton yes -showbuttons yes \
-showlines yes -itemheight 0 -selectmode browse
+ #
+ # Create columns
+ #
+
$T column create -text Layout
+ #
+ # Create elements
+ #
+
$T element create e1 rect -width 30 -height 30 -fill gray20
$T element create e2 rect -width 30 -height 30 -fill gray40 \
-outline blue -outlinewidth 3
@@ -21,6 +33,10 @@ proc DemoLayout {} {
$T element create e7 rect -fill {"sky blue"} -width 30 -height 16
$T element create e8 rect -fill gray70 -height 1
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create s1]
$T style elements $S {e4 e3 e1 e2 e5 e6 e7}
$T style layout $S e1 -padx {28 4} -pady 4
@@ -31,6 +47,10 @@ proc DemoLayout {} {
$T style layout $S e6 -detach yes -expand ws -padx {0 2} -pady {2 0}
$T style layout $S e7 -detach yes -expand wn -padx {0 2} -pady {0 2}
+ #
+ # Create items and assign styles
+ #
+
set I [$T item create -button yes]
$T item style set $I 0 $S
$T item lastchild root $I
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl
index 6225a78..627d836 100644
--- a/demos/mailwasher.tcl
+++ b/demos/mailwasher.tcl
@@ -11,10 +11,19 @@ proc DemoMailWasher {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showrootbutton no -showbuttons no \
-showlines no -itemheight $height -selectmode browse \
-xscrollincrement 1
+ #
+ # Create columns
+ #
+
set pad 4
$T column create -text Delete -textpadx $pad -tag delete
$T column create -text Bounce -textpadx $pad -tag bounce
@@ -27,6 +36,10 @@ proc DemoMailWasher {} {
$T state define CHECK
+ #
+ # Create elements
+ #
+
$T element create border rect -open nw -outline gray -outlinewidth 1 \
-fill [list $::SystemHighlight {selected}]
$T element create imgCheck image -image {checked CHECK unchecked {}}
@@ -45,6 +58,10 @@ proc DemoMailWasher {} {
$T element create txtBlacklist text -text "Blacklisted" \
-fill [list $::SystemHighlightText {selected} #FF5800 {}] -lines 1
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create styCheck]
$T style elements $S [list border imgCheck]
$T style layout $S border -detach yes -iexpand es
@@ -58,41 +75,46 @@ proc DemoMailWasher {} {
$T style layout $S border -detach yes -iexpand es
$T style layout $S txt$name -padx $pad -squeeze x -expand ns
}
-for {set i 0} {$i < 1} {incr i} {
- foreach {from subject} {
- baldy@spammer.com "Your hair is thinning"
- flat@spammer.com "Your breasts are too small"
- tiny@spammer.com "Your penis is too small"
- dumbass@spammer.com "You are not very smart"
- bankrobber@spammer.com "You need more money"
- loser@spammer.com "You need better friends"
- gossip@spammer.com "Find out what your coworkers think about you"
- whoami@spammer.com "Find out what you think about yourself"
- downsized@spammer.com "You need a better job"
- poorhouse@spammer.com "Your mortgage is a joke"
- spam4ever@spammer.com "You need more spam"
- } {
- set item [$T item create]
- set status [lindex [list styNormal styPossSpam styProbSpam styBlacklist] [expr int(rand() * 4)]]
- set delete [expr int(rand() * 2)]
- set bounce [expr int(rand() * 2)]
- set attachments [lindex [list styNone styYes] [expr int(rand() * 2)]]
- $T item style set $item 0 styCheck 1 styCheck 2 $status 3 styAny \
- 4 styAny 5 styAny 6 styAny 7 $attachments
- if {$delete} {
- $T item state forcolumn $item delete CHECK
- }
- if {$bounce} {
- $T item state forcolumn $item bounce CHECK
+
+ #
+ # Create items and assign styles
+ #
+
+ for {set i 0} {$i < 1} {incr i} {
+ foreach {from subject} {
+ baldy@spammer.com "Your hair is thinning"
+ flat@spammer.com "Your breasts are too small"
+ tiny@spammer.com "Your penis is too small"
+ dumbass@spammer.com "You are not very smart"
+ bankrobber@spammer.com "You need more money"
+ loser@spammer.com "You need better friends"
+ gossip@spammer.com "Find out what your coworkers think about you"
+ whoami@spammer.com "Find out what you think about yourself"
+ downsized@spammer.com "You need a better job"
+ poorhouse@spammer.com "Your mortgage is a joke"
+ spam4ever@spammer.com "You need more spam"
+ } {
+ set item [$T item create]
+ set status [lindex [list styNormal styPossSpam styProbSpam styBlacklist] [expr int(rand() * 4)]]
+ set delete [expr int(rand() * 2)]
+ set bounce [expr int(rand() * 2)]
+ set attachments [lindex [list styNone styYes] [expr int(rand() * 2)]]
+ $T item style set $item 0 styCheck 1 styCheck 2 $status 3 styAny \
+ 4 styAny 5 styAny 6 styAny 7 $attachments
+ if {$delete} {
+ $T item state forcolumn $item delete CHECK
+ }
+ if {$bounce} {
+ $T item state forcolumn $item bounce CHECK
+ }
+ set bytes [expr {512 + int(rand() * 1024 * 12)}]
+ set size [expr {$bytes / 1024 + 1}]KB
+ set seconds [expr {[clock seconds] - int(rand() * 100000)}]
+ set received [clock format $seconds -format "%d/%m/%y %I:%M %p"]
+ $T item text $item 3 $size 4 $from 5 $subject 6 $received
+ $T item lastchild root $item
}
- set bytes [expr {512 + int(rand() * 1024 * 12)}]
- set size [expr {$bytes / 1024 + 1}]KB
- set seconds [expr {[clock seconds] - int(rand() * 100000)}]
- set received [clock format $seconds -format "%d/%m/%y %I:%M %p"]
- $T item text $item 3 $size 4 $from 5 $subject 6 $received
- $T item lastchild root $item
}
-}
if 0 {
$T notify bind MailWasher <Button1-ElementPress-imgOn> {
%T item style set %I %C styOff
diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl
index 7fceacc..7bd8ed9 100644
--- a/demos/outlook-folders.tcl
+++ b/demos/outlook-folders.tcl
@@ -11,11 +11,24 @@ proc DemoOutlookFolders {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -itemheight $height -selectmode browse \
-showroot yes -showrootbutton no -showbuttons yes -showlines yes
+ #
+ # Create columns
+ #
+
$T column create -text Folders
+ #
+ # Create elements
+ #
+
$T element create e1 image
$T element create e2 text -fill [list $::SystemHighlightText {selected focus}] \
-lines 1
@@ -26,6 +39,10 @@ proc DemoOutlookFolders {} {
$T element create e6 rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] \
-showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# image + text
set S [$T style create s1]
$T style elements $S {e6 e1 e2}
@@ -56,6 +73,10 @@ proc DemoOutlookFolders {} {
$T style layout $S e4 -expand ns
$T style layout $S e6 -union [list e3] -iexpand ns -ipadx 2
+ #
+ # Create items and assign styles
+ #
+
$T item style set root 0 s1
$T item complex root [list [list e1 -image outlook-main] [list e2 -text "Outlook Express"]]
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl
index 29e1ef3..44837e5 100644
--- a/demos/outlook-newgroup.tcl
+++ b/demos/outlook-newgroup.tcl
@@ -13,9 +13,18 @@ proc DemoOutlookNewsgroup {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -itemheight $height -selectmode browse \
-showroot no -showrootbutton no -showbuttons yes -showlines no
+ #
+ # Create columns
+ #
+
$T column create -image outlook-clip -tag clip
$T column create -image outlook-arrow -tag arrow
$T column create -image outlook-watch -tag watch
@@ -33,6 +42,10 @@ proc DemoOutlookNewsgroup {} {
# State for a message with unread descendants
$T state define unread
+ #
+ # Create elements
+ #
+
$T element create elemImg image -image {
outlook-read-2Sel {selected read unread !open}
outlook-read-2 {read unread !open}
@@ -47,6 +60,10 @@ proc DemoOutlookNewsgroup {} {
$T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
$T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# Image + text
set S [$T style create s1]
$T style elements $S {sel.e elemImg elemTxt}
@@ -69,6 +86,10 @@ proc DemoOutlookNewsgroup {} {
# Set default item style
$T configure -defaultstyle [list "" "" "" s1 s2.we s2.we s2.w]
+ #
+ # Create items and assign styles
+ #
+
set msgCnt 100
set thread 0
@@ -176,7 +197,7 @@ proc MessageReadDelayed {} {
}
}
-# Alternate implementation which does not rely on run-time states
+# Alternate implementation that does not rely on run-time states
proc DemoOutlookNewsgroup2 {} {
global Message
@@ -189,9 +210,18 @@ proc DemoOutlookNewsgroup2 {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -itemheight $height -selectmode browse \
-showroot no -showrootbutton no -showbuttons yes -showlines no
+ #
+ # Create columns
+ #
+
$T column create -image outlook-clip -tag clip
$T column create -image outlook-arrow -tag arrow
$T column create -image outlook-watch -tag watch
@@ -202,6 +232,10 @@ proc DemoOutlookNewsgroup2 {} {
$T configure -treecolumn 3
+ #
+ # Create elements
+ #
+
$T element create image.unread image -image outlook-unread
$T element create image.read image -image outlook-read
$T element create image.read2 image -image outlook-read-2
@@ -213,6 +247,10 @@ proc DemoOutlookNewsgroup2 {} {
$T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
$T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
# Image + text
set S [$T style create unread]
$T style elements $S {sel.e image.unread text.unread}
@@ -258,6 +296,10 @@ proc DemoOutlookNewsgroup2 {} {
$T style layout $S text.read -padx 6 -squeeze x -expand ns
$T style layout $S sel.w -detach yes -iexpand es
+ #
+ # Create items and assign styles
+ #
+
set msgCnt 100
set thread 0
diff --git a/demos/random.tcl b/demos/random.tcl
index 4127dab..dace0a6 100644
--- a/demos/random.tcl
+++ b/demos/random.tcl
@@ -13,14 +13,27 @@ proc DemoRandom {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -itemheight $height -selectmode extended \
-showroot yes -showrootbutton yes -showbuttons yes -showlines yes \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
+ #
+ # Create columns
+ #
+
$T column create -expand yes -text Item -itembackground {#e0e8f0 {}} -tag item
$T column create -text Parent -justify center -itembackground {gray90 {}} -tag parent
$T column create -text Depth -justify center -itembackground {linen {}} -tag depth
+ #
+ # Create elements
+ #
+
$T element create e1 image -image {folder-open {open} folder-closed {}}
$T element create e2 image -image small-file
$T element create e3 text \
@@ -30,6 +43,10 @@ proc DemoRandom {} {
$T element create e5 rect -showfocus yes \
-fill [list $::SystemHighlight {selected focus} gray {selected !focus}]
+ #
+ # Create styles using the elements
+ #
+
$T style create s1
$T style elements s1 {e5 e1 e3 e4}
$T style layout s1 e1 -padx {0 4} -expand ns
@@ -56,6 +73,10 @@ proc DemoRandom {} {
{item s2 e2 e3}
}
+ #
+ # Create items and assign styles
+ #
+
set clicks [clock clicks]
set items [$T index root]
for {set i 1} {$i < $::RandomN} {incr i} {
@@ -138,7 +159,6 @@ proc TreeCtrl::RandomButton1 {T x y} {
variable Priv
focus $T
set id [$T identify $x $y]
- puts $id
set Priv(buttonMode) ""
# Click outside any item
diff --git a/demos/www-options.tcl b/demos/www-options.tcl
index 00cdcb9..bb604ca 100644
--- a/demos/www-options.tcl
+++ b/demos/www-options.tcl
@@ -6,17 +6,30 @@ proc DemoInternetOptions {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode browse
InitPics internet-*
+ #
+ # Create columns
+ #
+
$T column create -text "Internet Options"
$T state define check
$T state define radio
$T state define on
+ #
+ # Create elements
+ #
+
$T element create e1 image -image {
internet-check-on {check on}
internet-check-off {check}
@@ -26,12 +39,20 @@ proc DemoInternetOptions {} {
$T element create e2 text -fill [list $::SystemHighlightText {selected focus}]
$T element create e3 rect -fill [list $::SystemHighlight {selected focus}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create s1]
$T style elements $S {e3 e1 e2}
$T style layout $S e1 -padx {0 4} -expand ns
$T style layout $S e2 -expand ns
$T style layout $S e3 -union [list e2] -iexpand ns -ipadx 2
+ #
+ # Create items and assign styles
+ #
+
set parentList [list root {} {} {} {} {} {}]
set parent root
foreach {depth setting text option group} {
@@ -136,7 +157,7 @@ proc TreeCtrl::OptionButton1 {T x y} {
}
-# Alternate implementation that doesn't rely on run-time styles
+# Alternate implementation that does not rely on run-time states
proc DemoInternetOptions_2 {} {
set T .f2.f1.t
@@ -145,23 +166,44 @@ proc DemoInternetOptions_2 {} {
if {$height < 18} {
set height 18
}
+
+ #
+ # Configure the treectrl widget
+ #
+
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode browse
InitPics internet-*
- $T column configure 0 -text "Internet Options"
+ #
+ # Create columns
+ #
+
+ $T column create -text "Internet Options"
+
+ #
+ # Create elements
+ #
$T element create e1 image
$T element create e2 text -fill [list $::SystemHighlightText {selected focus}]
$T element create e3 rect -fill [list $::SystemHighlight {selected focus}] -showfocus yes
+ #
+ # Create styles using the elements
+ #
+
set S [$T style create s1]
$T style elements $S {e3 e1 e2}
$T style layout $S e1 -padx {0 4} -expand ns
$T style layout $S e2 -expand ns
$T style layout $S e3 -union [list e2] -iexpand ns -ipadx 2
+ #
+ # Create items and assign styles
+ #
+
set parentList [list root {} {} {} {} {} {}]
set parent root
foreach {depth setting text option group} {
generated by cgit v0.12 at 2024-06-29 04:22:51 (GMT)