… | |
… | |
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 | |