| … | |
… | |
| 218 | |
218 | |
| 219 | use POSIX qw(ceil); |
219 | use POSIX qw(ceil); |
| 220 | |
220 | |
| 221 | sub new { |
221 | sub new { |
| 222 | my ($self, %arg) = @_; |
222 | my ($self, %arg) = @_; |
|
|
223 | |
| 223 | $self = $self->Glib::Object::new; |
224 | $self = $self->Glib::Object::new; |
| 224 | $self->{$_} = delete $arg{$_} for keys %arg; |
225 | $self->{$_} = delete $arg{$_} for keys %arg; |
| 225 | |
226 | |
| 226 | gtk::state $self, "game::window", undef, window_size => [600, 500]; |
227 | gtk::state $self, "game::window", undef, window_size => [620, 460]; |
| 227 | |
228 | |
| 228 | $self->signal_connect (destroy => sub { |
229 | $self->signal_connect (destroy => sub { |
| 229 | $self->unlisten; |
230 | $self->unlisten; |
| 230 | delete $self->{app}{game}{$self->{channel}}; |
231 | delete $self->{app}{game}{$self->{channel}}; |
| 231 | %{$_[0]} = (); |
232 | %{$_[0]} = (); |
| 232 | });#d# |
233 | });#d# |
| 233 | |
234 | |
| 234 | $self->add (my $hpane = new Gtk2::HPaned); |
235 | $self->add (my $hpane = new Gtk2::HPaned); |
| 235 | gtk::state $hpane, "game::hpane", undef, position => 500; |
236 | gtk::state $hpane, "game::hpane", undef, position => 420; |
| 236 | |
237 | |
| 237 | # LEFT PANE |
238 | # LEFT PANE |
| 238 | |
239 | |
| 239 | $hpane->pack1 (($self->{left} = new Gtk2::VBox), 1, 0); |
240 | $hpane->pack1 (($self->{left} = new Gtk2::VBox), 1, 0); |
| 240 | |
241 | |
| … | |
… | |
| 293 | $self->{button_resign}->signal_connect (clicked => sub { |
294 | $self->{button_resign}->signal_connect (clicked => sub { |
| 294 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
295 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
| 295 | }); |
296 | }); |
| 296 | eval { $self->{button_resign}->set (no_show_all => 1) }; # workaround for gtk+-2.2 |
297 | eval { $self->{button_resign}->set (no_show_all => 1) }; # workaround for gtk+-2.2 |
| 297 | |
298 | |
| 298 | $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0); |
299 | $vbox->pack_start (($self->{chat} = new chat), 1, 1, 0); |
| 299 | |
300 | |
| 300 | $self->set_channel ($self->{channel}); |
301 | $self->set_channel ($self->{channel}); |
| 301 | |
302 | |
| 302 | $self->show_all; |
303 | $self->show_all; |
| 303 | |
304 | |
