-command => sub {
        my $i = $_[0]->cget(-image);
        print "args=@_, \n";
    },