alias wc { dialog -md Word Word }
dialog Word {
title "Word Counter"
size -1 -1 197 120
option dbu
box "Information", 1, 3 100 190 18
edit "", 2, 6 106 183 10, read
edit "", 3, 1 7 193 77, autohs multi return
box "Stuff you want counted", 4, 0 0 196 86
button "Click here to count how many words are in the above!", 5, 3 87 187 12
}
on *:DIALOG:word:sclick:5: {
set %x 1
while ($did(3,%x)) {
tokenize 32 $did(3,%x)
inc %words $0
inc %x
}
did -ra word 2 The are %words words in the above text
unset %words
}