| … | |
… | |
| 35 | $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self); |
35 | $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self); |
| 36 | }); |
36 | }); |
| 37 | |
37 | |
| 38 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 0, 1, 0); |
38 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 0, 1, 0); |
| 39 | |
39 | |
| 40 | $vbox->pack_start ((my $button = new_with_label Gtk2::Button "Close"), 0, 1, 0); |
40 | $vbox->pack_start ((my $button = new_with_label Gtk2::Button "Leave"), 0, 1, 0); |
| 41 | $button->signal_connect (clicked => sub { $self->part }); |
41 | $button->signal_connect (clicked => sub { $self->part }); |
| 42 | |
42 | |
| 43 | $vbox->pack_start ((my $button = new_with_label Gtk2::Button "New Game"), 0, 1, 0); |
43 | $vbox->pack_start ((my $button = new_with_label Gtk2::Button "New Game"), 0, 1, 0); |
| 44 | $button->signal_connect (clicked => sub { $self->new_game }); |
44 | $button->signal_connect (clicked => sub { $self->new_game }); |
| 45 | |
45 | |
