#!perl -w

use strict;
use warnings;
use Tkx;

Tkx::button(".b",
     -text => "Hello, world",
     -command => sub { Tkx::foo(); },  # XXX will fail
);
Tkx::pack(".b");

Tkx::set("perl_bgerror", sub {
     splice(@_, 0, 3);  # skip internal callback junk
     my $msg = shift;
     print "Error: $msg\n";
});

Tkx::eval(<<'EOT');
proc bgerror {msg} {
      global perl_bgerror
      $perl_bgerror $msg
}
EOT

Tkx::MainLoop()

__END__