From 1c31fab6cd178e2ee54d4546ec43797df411768e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 26 Jan 2024 08:55:34 +0000
Subject: Let's simply use "1" for -underline/-overstrike in stead of "on"

---
 library/demos/style.tcl | 4 ++--
 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:
-- 
cgit v0.12