diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 08:55:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 08:55:34 (GMT) |
| commit | 1c31fab6cd178e2ee54d4546ec43797df411768e (patch) | |
| tree | 6c24be2a381069c23fa3339c608c72b085429db8 | |
| parent | c47ef3ca36bd1785c5c34a67a70ddcc49dd7201d (diff) | |
| download | tk-1c31fab6cd178e2ee54d4546ec43797df411768e.zip tk-1c31fab6cd178e2ee54d4546ec43797df411768e.tar.gz tk-1c31fab6cd178e2ee54d4546ec43797df411768e.tar.bz2 | |
Let's simply use "1" for -underline/-overstrike in stead of "on"
| -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: |