diff options
author | treectrl <treectrl> | 2006-12-04 00:16:02 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-12-04 00:16:02 (GMT) |
commit | 1d08e81bd774dd0e8da492a770bb06d2f5fd24a6 (patch) | |
tree | 84600fef0ec34d142a865846b564c435e0c03c68 /demos/style-editor.tcl | |
parent | 2eb2cf4ae5672ac05a6aef93fb16b209352cc7ee (diff) | |
download | tktreectrl-1d08e81bd774dd0e8da492a770bb06d2f5fd24a6.zip tktreectrl-1d08e81bd774dd0e8da492a770bb06d2f5fd24a6.tar.gz tktreectrl-1d08e81bd774dd0e8da492a770bb06d2f5fd24a6.tar.bz2 |
Use named fonts DemoFontBold and DemoFontUnderline.
Diffstat (limited to 'demos/style-editor.tcl')
-rw-r--r-- | demos/style-editor.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/style-editor.tcl b/demos/style-editor.tcl index 2bbd589..7c71781 100644 --- a/demos/style-editor.tcl +++ b/demos/style-editor.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: style-editor.tcl,v 1.13 2006/11/19 00:55:51 treectrl Exp $ +# RCS: @(#) $Id: style-editor.tcl,v 1.14 2006/12/04 00:16:02 treectrl Exp $ namespace eval StyleEditor { variable Info @@ -255,7 +255,7 @@ proc StyleEditor::SetPropertyList {} { $T element create e1 text \ -fill [list $::SystemHighlightText selected white header] \ - -font [list "[$T cget -font] bold" header] + -font [list DemoFontBold header] $T element create e2 rect \ -fill [list #ACA899 header $::SystemHighlight selected] \ -outline black -outlinewidth 1 -open nw -showfocus no |