#!/usr/local/bin/wish8.0

source balloon.tcl

frame .f1

# this button enables the modification/creation of the help message.
# after clicking it, use the third mouse button to click on a widget
# and modify/create the message
button .f1.b1 -text "Crete/modify help" -command tcl_cria_ajuda_mod

# this button turns the help on; after activating it, keeping the pointer
# inside a widget makes the message appear.
checkbutton .f1.b2 -text "Turn help on" -variable state -command {tcl_balloon_state $state}

# before leaving, save the help file.
button .f1.b3 -text Exit -command {tcl_help_save; exit}
pack .f1.b1 .f1.b2 .f1.b3 .f1 

# initialize the help; load the help file. Call after widget creation
tcl_help_setup

# for more help, please read the source.