The short answer is
$widget -> bell;A slightly longer answer might include a fully functioning script:
#!/usr/bin/perl
use Tk;
$main = MainWindow -> new;
$butn = $main->Button(-text => 'bell')
$butn->configure(-command => sub{ $butn->bell; });
$butn->pack();
MainLoop;
An even longer answer would be a fully functioning script with a callback:
#!/usr/bin/perl
use Tk;
$main = MainWindow -> new;
$but = $main->Button(-text => 'bell',
-command => sub{ringit($main)})->pack;
MainLoop;
sub ringit {
my $m = shift;
$m->bell;
}
Simon Galton <galtons@candu.aecl.ca>
reminds us to be careful in that
some systems remap this [the "console bell"] to anything from a digital sound to a flash on the screen.
Previous | Return to table of contents | Next