use Gtk;

my $pixmap = `gtk-config --prefix`;
chomp $pixmap;
$pixmap .= "/share/pixmaps/yes.xpm";

my $widgets;

Gnome->init('Core Dump', '0.0.1');

#
# Construct a GtkWindow 'ReferenceForm'
$widgets->{'ReferenceForm'} = new Gtk::Window;
$widgets->{'ReferenceForm'}->realize;
  #
  # Construct a GtkVBox 'vbox12'
  $widgets->{'vbox12'} = new Gtk::VBox('0', '0' );
  $widgets->{'vbox12'}->show( );
  $widgets->{'ReferenceForm'}->add($widgets->{'vbox12'} );
    #
    # Construct a GnomePixmap 'pixmap7'
    $widgets->{'pixmap7'} = new_from_file Gnome::Pixmap($pixmap);
    $widgets->{'pixmap7'}->show( );
  $widgets->{'vbox12'}->add($widgets->{'pixmap7'});
    #
    # Construct a GtkButton 'button'
    $widgets->{'button'} = new Gtk::Button('Click to Gtk->main_quit and trigger core dump');
    $widgets->{'button'}->show;
  $widgets->{'vbox12'}->add($widgets->{'button'});
#
# Connect all signals now that widgets are constructed
$widgets->{'button'}->signal_connect( 'clicked', sub {Gtk->main_quit} );

$widgets->{'ReferenceForm'}->show;

Gtk->main;



