$mw->Button( -text => "Test", -command => sub { my $widget = $SELF(?); print $widget->cget(-text); } )->place( -x => 50, -y => 100, -height => 100, -width => 320);