… | |
… | |
40 | $vpane->add(my $vbox = new Gtk2::VBox); |
40 | $vpane->add(my $vbox = new Gtk2::VBox); |
41 | |
41 | |
42 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
42 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
43 | $sw->set_policy("automatic", "always"); |
43 | $sw->set_policy("automatic", "always"); |
44 | |
44 | |
45 | $sw->add($self->{text} = new Gtk2::Text); |
45 | $sw->add(($self->{text} = new gtk::text)->widget); |
46 | |
46 | |
47 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
47 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
48 | $self->{entry}->signal_connect(activate => sub { |
48 | $self->{entry}->signal_connect(activate => sub { |
49 | my $text = $self->{entry}->get_text; |
49 | my $text = $self->{entry}->get_text; |
50 | $self->say($text) if $text =~ /\S/; |
50 | $self->say($text) if $text =~ /\S/; |