diff options
Diffstat (limited to 'demos/biglist.tcl')
-rw-r--r-- | demos/biglist.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/biglist.tcl b/demos/biglist.tcl index f37e179..8bc5a37 100644 --- a/demos/biglist.tcl +++ b/demos/biglist.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: biglist.tcl,v 1.12 2006/11/30 02:41:38 treectrl Exp $ +# RCS: @(#) $Id: biglist.tcl,v 1.13 2006/12/04 00:16:02 treectrl Exp $ set ::clip 1 proc DemoBigList {} { @@ -52,7 +52,7 @@ if {$::clip} { $T element create elemBorderTitle border -relief {sunken open raised {}} -thickness 1 \ -filled yes -background $::SystemButtonFace $T element create elemTxtTitle text \ - -font [list "[$T cget -font] bold"] + -font [list DemoFontBold] # Citizen $T element create elemRectSel rect -showfocus no \ |