Select Code to Download

Select or download this

#!/usr/bin/perl
use Tk;
...
$mw->Button( -text => "bar", -font => "times", -command => sub { exit 
+} )->pack;

MainLoop;

Select or download this

Tcl_GetStringFromObj @ 535 not utf8
SV = PV(0x88074ac) at 0x880f150
...
        Tk::Widget::new('Tk::Label', 'MainWindow=HASH(0x87f2c8c)', '-t
+ext', 'foo') called at /usr/local/lib/perl/5.8.4/Tk/Widget.pm line 25
+6
        Tk::Widget::__ANON__('MainWindow=HASH(0x87f2c8c)', '-text', 'f
+oo') called at ./test.pl line 19
 at ./test.pl line 19