| … | |
… | |
| 74 | $sw->add(($self->{userlist} = new gtk::userlist)->widget); |
74 | $sw->add(($self->{userlist} = new gtk::userlist)->widget); |
| 75 | |
75 | |
| 76 | $self->{vpane}->add(my $vbox = new Gtk2::VBox); |
76 | $self->{vpane}->add(my $vbox = new Gtk2::VBox); |
| 77 | |
77 | |
| 78 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
78 | $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0); |
| 79 | $sw->set_policy("automatic", "always"); |
79 | $sw->set_policy("never", "always"); |
| 80 | |
80 | |
| 81 | $sw->add(($self->{text} = new gtk::text)->widget); |
81 | $sw->add(($self->{text} = new gtk::text)->widget); |
| 82 | |
82 | |
| 83 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
83 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
| 84 | $self->{entry}->signal_connect(activate => sub { |
84 | $self->{entry}->signal_connect(activate => sub { |
