#!/usr/local/bin/wish -f

button .button -command sendTo -text "I'm a Tk button"
pack .button -side left

proc sendTo {} {
  send xmSend2 incrementLabel
}
