use Tk; my $mw = tkinit; $mw->Button->pack for 1..3; $mw->WidgetDump; MainLoop;


##</code><code>##


Name:	button1
PathName:	.button1
[Flash widget]

##</code><code>##

$ww->Name = [
              'button1'
            ];
$Error = '';
@res = <button1>

##</code><code>##

$ww->PathName = [
                  '.button1'
                ];
$Error = '';
@res = <.button1>