From 32accf3982438c4c742f6f67951ca277e8918351 Mon Sep 17 00:00:00 2001
From: Jan-Erik Rediger <janerik@fnordig.de>
Date: Tue, 29 Oct 2024 20:28:25 +0100
Subject: [PATCH] selectable transform

---
 texttools.tcl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/texttools.tcl b/texttools.tcl
index 9881b63..9eb219e 100755
--- a/texttools.tcl
+++ b/texttools.tcl
@@ -7,6 +7,7 @@ text .content
 text .output
 listbox .transform
 
+.transform insert end {One line}
 .transform insert end Line/Word/Char
 
 grid .transform -row 1 -column 1 -rowspan 2
@@ -30,4 +31,10 @@ proc wordcount {} {
 
 bind .content <KeyRelease> wordcount
 
+proc select_transform {} {
+  puts {transform selected}
+}
+
+bind .transform <Button-1> select_transform
+
 update