diff options
Diffstat (limited to 'tix/demos/samples/Balloon.tcl')
-rw-r--r-- | tix/demos/samples/Balloon.tcl | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/tix/demos/samples/Balloon.tcl b/tix/demos/samples/Balloon.tcl new file mode 100644 index 00000000000..63ea7a24f20 --- /dev/null +++ b/tix/demos/samples/Balloon.tcl @@ -0,0 +1,44 @@ +# Tix Demostration Program +# +# This sample program is structured in such a way so that it can be +# executed from the Tix demo program "widget": it must have a +# procedure called "RunSample". It should also have the "if" statment +# at the end of this file so that it can be run as a standalone +# program using tixwish. + +# This file demonstrates the use of the tixBalloon widget, which provides +# a interesting way to give help tips about elements in your user interface. +# Your can display the help message in a "balloon" and a status bar widget. +# +proc RunSample {w} { + + # Create the status bar widget + # + label $w.status -width 40 -relief sunken -bd 1 + pack $w.status -side bottom -fill y -padx 2 -pady 1 + + # These are two a mysterious widgets that need some explanation + # + button $w.button1 -text " Something Unexpected " \ + -command "destroy $w" + button $w.button2 -text " Something Else Unexpected " \ + -command "destroy $w.button2" + pack $w.button1 $w.button2 -side top -expand yes + + # Create the balloon widget and associate it with the widgets that we want + # to provide tips for: + tixBalloon $w.b -statusbar $w.status + + $w.b bind $w.button1 -balloonmsg "Close window" \ + -statusmsg "Press this button to close this window" + $w.b bind $w.button2 -balloonmsg "Self-destruct\nButton" \ + -statusmsg "Press this button and it will get rid of itself" +} + +if {![info exists tix_demo_running]} { + wm withdraw . + set w .demo + toplevel $w + RunSample $w + bind $w <Destroy> {if {"%W" == ".demo"} exit} +} |