sub turn_button_images_on {
   my $widget = $_[0];
   my %buttonimages;
   if ("$widget->get_name" =~/Button/){
      unless ("$widget->get_name" =~/CheckButton/{
         print "Widget $widget is a Gtk2 button\n";
         $buttonimages{$widget}=$widget->get_settings:
         $buttonimages{$widget}=$widget->set('gtk-button-images', TRUE) 
      }
   } elsif ($widget->isa(Gtk2::Container::)){
      $widget->foreach(sub {turn_button_images_on ($_[0]); }); }
}