diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/demos/style.tcl | 4 | ||||
-rw-r--r-- | library/text.tcl | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/style.tcl b/library/demos/style.tcl index a529a03..80b78f3 100644 --- a/library/demos/style.tcl +++ b/library/demos/style.tcl @@ -52,8 +52,8 @@ if {[winfo depth $w] > 1} { $w.text tag configure bgstipple -background black -borderwidth 0 \ -bgstipple gray12 $w.text tag configure fgstipple -fgstipple gray50 -$w.text tag configure underline -underline on -$w.text tag configure overstrike -overstrike on +$w.text tag configure underline -underline 1 +$w.text tag configure overstrike -overstrike 1 $w.text tag configure right -justify right $w.text tag configure center -justify center $w.text tag configure super -offset 4p -font "$family 10" diff --git a/library/text.tcl b/library/text.tcl index caa2844..99d5841 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -423,7 +423,7 @@ proc ::tk::TextEndIMEMarkedText {w} { return } $w tag add IMEmarkedtext $mark insert - $w tag configure IMEmarkedtext -underline on + $w tag configure IMEmarkedtext -underline 1 } # Macintosh only bindings: |