From 25a43be9733195e07367154faa4141ff701e5582 Mon Sep 17 00:00:00 2001
From: Jan-Erik Rediger <janerik@fnordig.de>
Date: Tue, 29 Oct 2024 20:27:01 +0100
Subject: [PATCH] now with a listbox

---
 texttools.tcl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/texttools.tcl b/texttools.tcl
index a2cd89f..9881b63 100755
--- a/texttools.tcl
+++ b/texttools.tcl
@@ -5,6 +5,14 @@ wm title . "Text Tools"
 
 text .content
 text .output
+listbox .transform
+
+.transform insert end Line/Word/Char
+
+grid .transform -row 1 -column 1 -rowspan 2
+grid .content -row 1 -column 2
+grid .output -row 2 -column 2
+
 focus .content
 
 proc wordcount {} {
@@ -22,7 +30,4 @@ proc wordcount {} {
 
 bind .content <KeyRelease> wordcount
 
-grid .content -row 1
-grid .output -row 2
-
 update