| … | |
… | |
| 275 | for COLOUR_WHITE, COLOUR_BLACK; |
275 | for COLOUR_WHITE, COLOUR_BLACK; |
| 276 | |
276 | |
| 277 | $vbox->pack_start ((my $buttonbox = new Gtk2::HButtonBox), 0, 1, 0); |
277 | $vbox->pack_start ((my $buttonbox = new Gtk2::HButtonBox), 0, 1, 0); |
| 278 | |
278 | |
| 279 | $buttonbox->add ($self->{button_pass} = |
279 | $buttonbox->add ($self->{button_pass} = |
| 280 | Gtk2::Button->Glib::Object::new (label => "Pass", no_show_all => 1, visible => 0)); |
280 | Gtk2::Button->Glib::Object::new (label => "Pass", visible => 0)); |
| 281 | $self->{button_pass}->signal_connect (clicked => sub { |
281 | $self->{button_pass}->signal_connect (clicked => sub { |
| 282 | $self->{board_click}->(255, 255) if $self->{board_click}; |
282 | $self->{board_click}->(255, 255) if $self->{board_click}; |
| 283 | }); |
283 | }); |
|
|
284 | eval { $self->{button_pass}->set (no_show_all => 1) }; # workaround for gtk+-2.2 |
| 284 | $buttonbox->add ($self->{button_undo} = |
285 | $buttonbox->add ($self->{button_undo} = |
| 285 | Gtk2::Button->Glib::Object::new (label => "Undo", no_show_all => 1, visible => 0)); |
286 | Gtk2::Button->Glib::Object::new (label => "Undo", visible => 0)); |
| 286 | $self->{button_undo}->signal_connect (clicked => sub { |
287 | $self->{button_undo}->signal_connect (clicked => sub { |
| 287 | $self->send (req_undo => channel => $self->{channel}); |
288 | $self->send (req_undo => channel => $self->{channel}); |
| 288 | }); |
289 | }); |
|
|
290 | eval { $self->{button_undo}->set (no_show_all => 1) }; # workaround for gtk+-2.2 |
| 289 | $buttonbox->add ($self->{button_resign} = |
291 | $buttonbox->add ($self->{button_resign} = |
| 290 | Gtk2::Button->Glib::Object::new (label => "Resign", no_show_all => 1, visible => 0)); |
292 | Gtk2::Button->Glib::Object::new (label => "Resign", visible => 0)); |
| 291 | $self->{button_resign}->signal_connect (clicked => sub { |
293 | $self->{button_resign}->signal_connect (clicked => sub { |
| 292 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
294 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
| 293 | }); |
295 | }); |
|
|
296 | eval { $self->{button_resign}->set (no_show_all => 1) }; # workaround for gtk+-2.2 |
| 294 | |
297 | |
| 295 | $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0); |
298 | $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0); |
| 296 | |
299 | |
| 297 | $self->set_channel ($self->{channel}); |
300 | $self->set_channel ($self->{channel}); |
| 298 | |
301 | |
