… | |
… | |
13 | $vbox->add (my $frame = new Gtk2::Frame "Notes"); |
13 | $vbox->add (my $frame = new Gtk2::Frame "Notes"); |
14 | $frame->add ($self->{entry} = new Gtk2::Entry); |
14 | $frame->add ($self->{entry} = new Gtk2::Entry); |
15 | |
15 | |
16 | $vbox->add (my $hbox = new Gtk2::HBox); |
16 | $vbox->add (my $hbox = new Gtk2::HBox); |
17 | |
17 | |
18 | $hbox->add (($self->{userlist} = new userlist)->widget); |
18 | $hbox->add ($self->{userlist} = new userlist); |
19 | |
19 | |
20 | $vbox->add (my $hbox = new Gtk2::HButtonBox); |
20 | $vbox->add (my $hbox = new Gtk2::HButtonBox); |
21 | |
21 | |
22 | $hbox->add (my $button = new Gtk2::Button "OK"); |
22 | $hbox->add (my $button = new Gtk2::Button "OK"); |
23 | $hbox->add (my $button = new Gtk2::Button "Decline"); |
23 | $hbox->add (my $button = new Gtk2::Button "Decline"); |