my $bttn = $mw->Button;
my $c = $bttn->Compound;
$c->Space(-height => 10);    
$c->Line;            
$c->Space(-width => 10);
$c->Text(-text => "A name", -font => 'times 19');
$c->Image(-image => $bttn->Photo(-file => "an_image.png") );
$c->Space(-width => 10);
$c->Line;                         
$c->Space(-height => 10);