Tk::Button - default button highlight.........

Prøv at bruge $widget->focus - som herunder:

use Tk;
my $mw = MainWindow->new;
$mw->title( 'Buttonfocus' );

$but1 = $mw->Button(-text => "Button1", -command => sub { exit })->pack;
$but2 = $mw->Button(-text => "Button2", -command => sub { exit })->pack;
$but2->focus;
MainLoop;

Mvh
Jesper Naur

ja selvfølgelig :)

Mange tak jesper.