#!/usr/bin/perl #2014/1/23-16:7:4 use warnings; use Glib qw{ TRUE FALSE }; use Gtk2 '-init'; my $builder; my $window; # get a new builder object $builder = Gtk2::Builder->new(); # load the Gtk File from GLADE $builder->add_from_file( "test.glade" ) or die "Error loading GLADE file"; # create the main window $window = $builder->get_object( "window1" ) or die "Error while creating Main Window"; #my $button1 = $gladexml->get_widget('button1'); $button1 = $builder->get_object( "button1" ); $label1 = $builder->get_object( "label1" ); $liststore1 = $builder->get_object( "liststore1" ); $treeview1 = $builder->get_object( "treeview1" ); $treeviewcolumn1 = $builder->get_object( "treeviewcolumn1" ); $treeviewcolumn2 = $builder->get_object( "treeviewcolumn2" ); #treeview1 #gtk_tree_view_column_pack_end #$button1-> signal_connect( clicked => sub{Gtk2->main_quit;}); $liststore1->set($liststore1->append,0, 12, 1, 12); #$liststore1->set($liststore1->append,1, "12", 2, "12"); $button1-> signal_connect( clicked => sub{$label1->set_label("nihao");}); sub gtk_main_quit { Gtk2->main_quit();} #$nihao="ddd"; # connect the event handlers #$builder->connect_signals( undef ); $builder->connect_signals(clicked => sub{Gtk2->main_quit;},$button1 ); $window->show_all(); $builder = undef; Gtk2->main(); exit; ================test.glade=================== False True False button 100 37 True True True 250 124 button 100 80 True True True 176 195 218 108 True True liststore1 3 True 鍚嶅瓧 True True 0 0 True 骞撮緞 True True 1 1 26 42 100 80 True False label 244 45