misc/multiplatform-ui/hello.pl

   1 #!/usr/bin/env perl
   2 #GTK Hello world! by Harvie 2oo9
   3
   4 use strict;
   5 use warnings;
   6 use utf8;
   7 use Gtk2 qw(-init);
   8
   9 my $builder = Gtk2::Builder->new();
  10 $builder->add_from_file('hello.ui');
  11
  12 my %widgets;
  13 foreach my $widget qw(window1 button1 entry1)
  14 {
  15         $widgets{$widget}=$builder->get_object($widget);
  16 }
  17
  18 $builder->connect_signals( undef );
  19 $builder = undef;
  20
  21 $widgets{'window1'}->show();
  22
  23 Gtk2->main();
  24 exit;
  25
  26 sub on_window1_destroy
  27 {
  28     Gtk2->main_quit();
  29 }
  30
  31 sub on_button1_clicked
  32 {
  33         $widgets{'button1'}->set_label($widgets{'entry1'}->get_text());
  34         print $widgets{'entry1'}->get_text()."\n";
  35 }
  36
  37
  38