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