source balloon.tcl

toplevel .top

entry .top.e
text .top.t

pack .top.e -side top
pack .top.t

SetBalloon .top.e "this is entry"
SetBalloon .top.t "this is text"

focus .top.e
