| … | |
… | |
| 306 | Gtk2::Button->Glib::Object::new (label => "Resign", visible => 0, no_show_all => 1)); |
306 | Gtk2::Button->Glib::Object::new (label => "Resign", visible => 0, no_show_all => 1)); |
| 307 | $self->{button_resign}->signal_connect (clicked => sub { |
307 | $self->{button_resign}->signal_connect (clicked => sub { |
| 308 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
308 | $self->send (resign_game => channel => $self->{channel}, player => $self->{colour}); |
| 309 | }); |
309 | }); |
| 310 | |
310 | |
| 311 | $vbox->pack_start (($self->{chat} = new chat), 1, 1, 0); |
311 | $vbox->pack_start (($self->{chat} = new chat app => $self->{app}), 1, 1, 0); |
| 312 | |
312 | |
| 313 | $self->{chat}->signal_connect (tag_event => sub { |
313 | $self->{chat}->signal_connect (tag_event => sub { |
| 314 | my (undef, $tag, $event, $content) = @_; |
314 | my (undef, $tag, $event, $content) = @_; |
| 315 | |
|
|
| 316 | if ($tag eq "user" && $event->type eq "button-release") { |
|
|
| 317 | if ($event->button == 1) { |
|
|
| 318 | $content =~ /^(\S+)/; |
|
|
| 319 | $self->{app}->open_user ($1); |
|
|
| 320 | } |
|
|
| 321 | } |
|
|
| 322 | }); |
315 | }); |
| 323 | |
316 | |
| 324 | $self->set_channel ($self->{channel}); |
317 | $self->set_channel ($self->{channel}); |
| 325 | |
318 | |
| 326 | $self->show_all; |
319 | $self->show_all; |
