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
  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: { tokenize $did(3) 32 | did -ra word 2 There are $0 words in the above text. }