Tk::Balloon - pop up help balloons.
use Tk::Balloon;
...
$b = $top->Balloon(-statusbar => $status_bar_widget);
$b->attach($widget,
-balloonmsg => "Balloon help message",
-statusmsg => "Status bar message");
Balloon provides the framework to create and attach help balloons to various
widgets so that when the mouse pauses over the widget for more than a
specified amount of time, a help balloon is poppped up.
Balloon accepts all the options that the Frame widget accepts. In addition, the following options are also recognized.
- -initwait
-
Specifies the amount of time to wait without activity before popping up a
help balloon. Specified in milliseconds. Defaults to 350 milliseconds.
- -state
-
Can be one of balloon, status, both or none indicating that the help balloon, status bar help, both or none
respectively should be activated when the mouse pauses over the client
widget.
- -statusbar
-
Specifies the widget used to display the status message. This widget should
accept the -text option and is typically a
Label.
The Balloon widget supports only two non-standard methods:
- attach(widget, options)
-
Attaches the widget indicated by widget to the help system. The options can be:
- -statusmsg
-
The argument is the message to be shown on the status bar when the mouse
pauses over this client. If this is not specified, but
-msg is specified then the message displayed on the status bar is the same as
the argument for -msg.
- -balloonmsg
-
The argument is the message to be displayed in the balloon that will be
popped up when the mouse pauses over the client. As with
-statusmsg if this is not specified, then it takes its value from the -msg specification as any. If neither -balloonmsg
nor -msg are specified, then an empty balloon will be popped up... this is silly,
but there it is.
- -msg
-
The catch-all for -statusmsg and -balloonmsg. This is a convenient way of specifying the same message to be displayed
in both the balloon and the status bar for the client.
- detach(widget)
-
Detaches the specified widget widget from the help system.
Rajappa Iyer rsi@ziplink.net
This code and documentation is derived from Balloon.tcl from the Tix4.0
distribution by Ioi Lam. This code may be redistributed under the same
terms as Perl.
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>