diff options
author | treectrl <treectrl> | 2006-10-04 04:01:37 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-10-04 04:01:37 (GMT) |
commit | ad1a8bafede8dc11df88ad6f7810234482adaa0d (patch) | |
tree | de2c24ac85c1390ea5c62cc0b234573c46364346 /demos | |
parent | 6d7a6e55df5be4f76280cb800e87257946f7deb7 (diff) | |
download | tktreectrl-ad1a8bafede8dc11df88ad6f7810234482adaa0d.zip tktreectrl-ad1a8bafede8dc11df88ad6f7810234482adaa0d.tar.gz tktreectrl-ad1a8bafede8dc11df88ad6f7810234482adaa0d.tar.bz2 |
Column -tag is now -tags (although -tag is still backwards-compatible).
ttk::entry is no longer imported since it fubars the library text-editing code.
Diffstat (limited to 'demos')
-rw-r--r-- | demos/firefox.tcl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/demos/firefox.tcl b/demos/firefox.tcl index c7308ed..6c2f075 100644 --- a/demos/firefox.tcl +++ b/demos/firefox.tcl @@ -1,6 +1,5 @@ -# RCS: @(#) $Id: firefox.tcl,v 1.12 2006/09/27 01:56:38 treectrl Exp $ +# RCS: @(#) $Id: firefox.tcl,v 1.13 2006/10/04 04:01:37 treectrl Exp $ -set ::clip 1 proc DemoFirefoxPrivacy {} { global FirefoxPrivacy @@ -46,7 +45,7 @@ if {$::clip} { } $T column create -expand yes -arrowimage {arrow-down !up arrow-up {}} \ - -arrow up -arrowpadx {10 2} -textlines 0 -tag C0 \ + -arrow up -arrowpadx {10 2} -textlines 0 -tags C0 \ -text "This is a multi-line column title\nwith an image for the arrow" $T configure -treecolumn C0 @@ -135,7 +134,7 @@ if {$::clip} { set f [frame $T.f$I -borderwidth 0 -background $bg] } label $f.l1 -background $bg -text "Remember visited pages for the last" - entry $f.e1 -width 6 + $::entryCmd $f.e1 -width 6 $f.e1 insert end 20 label $f.l2 -background $bg -text "days" -background $bg pack $f.l1 -side left @@ -364,7 +363,7 @@ if {$::clip} { bindtags $f.t1 TextWrapBindTag set f1 [frame $f.f1 -borderwidth 0 -background $bg] label $f1.l1 -background $bg -text "Use up to:" - entry $f1.e1 -width 10 + $::entryCmd $f1.e1 -width 10 $f1.e1 insert end 50000 label $f1.l2 -background $bg -text "KB of disk space for the cache." \ -background $bg |