source balloon.tcl
button .b -text Go -command print_hello
set_balloon .b {Write a greeting to stdout}
button .e -text Quit -command exit
set_balloon .e {Exit this program}
pack .b .e -side left