29 lines
487 B
Tcl
Executable file
29 lines
487 B
Tcl
Executable file
#!/usr/bin/env wish
|
|
|
|
wm geometry . 750x650
|
|
wm title . "Text Tools"
|
|
|
|
text .content
|
|
text .output
|
|
focus .content
|
|
|
|
proc wordcount {} {
|
|
set text [.content get 1.0 end]
|
|
|
|
set lines [expr [llength [split $text \n]] - 1]
|
|
set words [llength [regexp -all -inline {\S+} $text]]
|
|
set len [string length $text]
|
|
|
|
lappend out $lines
|
|
lappend out $words
|
|
lappend out $len
|
|
.output replace 1.0 end $out
|
|
}
|
|
|
|
bind .content <KeyRelease> wordcount
|
|
|
|
grid .content -row 1
|
|
grid .output -row 2
|
|
|
|
update
|