diff options
Diffstat (limited to 'lib/choose_font.tcl')
| -rw-r--r-- | lib/choose_font.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/choose_font.tcl b/lib/choose_font.tcl index 0c4051b375..56443b042c 100644 --- a/lib/choose_font.tcl +++ b/lib/choose_font.tcl @@ -55,6 +55,7 @@ constructor pick {path title a_family a_size} { set w_family $w.inner.family.v text $w_family \ -background white \ + -foreground black \ -borderwidth 1 \ -relief sunken \ -cursor $::cursor_ptr \ @@ -92,6 +93,7 @@ constructor pick {path title a_family a_size} { set w_example $w.example.t text $w_example \ -background white \ + -foreground black \ -borderwidth 1 \ -relief sunken \ -height 3 \ |