diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 15:42:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-26 15:42:28 (GMT) |
| commit | e779b224f859934b9df740e8d38a5c33cdc9ea69 (patch) | |
| tree | 0db28a982e0f59fb2887d1b1d96bdd9cbb10e350 /library | |
| parent | 280750793ddcfade260626187ff45520e4e220ea (diff) | |
| parent | 1c31fab6cd178e2ee54d4546ec43797df411768e (diff) | |
| download | tk-e779b224f859934b9df740e8d38a5c33cdc9ea69.zip tk-e779b224f859934b9df740e8d38a5c33cdc9ea69.tar.gz tk-e779b224f859934b9df740e8d38a5c33cdc9ea69.tar.bz2 | |
Merge 8.7
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 a32f3a6..be0d365 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: |