use strict;
use warnings;
use Tk;

my $GUI = new MainWindow;

my $ROW1=$GUI->Frame(-relief=>'flat',
                     -borderwidth=>0,
                     -background=>'#c2d297')
                     ->pack(-side=>'top', -fill=>'x');

    my $photo = $ROW1->Photo(-file=>"numbers/1.bmp");

    my $photo_canvas = $ROW1->Canvas(-width=>29,
                                     -height=>32,  
                                     -background=>'#c2d297', 
                                     -borderwidth=>0)
                                     ->pack(-side=>'left');
            
    my $text = $ROW1->Text()->place(-x => 16, -y => 16);
    $photo_canvas->createImage(16, 18, -image=>$photo);

MainLoop;