| … | |
… | |
| 25 | |
25 | |
| 26 | use Carp (); |
26 | use Carp (); |
| 27 | use AnyEvent (); |
27 | use AnyEvent (); |
| 28 | use BerkeleyDB; |
28 | use BerkeleyDB; |
| 29 | use Pod::POM (); |
29 | use Pod::POM (); |
|
|
30 | use Scalar::Util (); |
| 30 | use Storable (); # finally |
31 | use Storable (); # finally |
| 31 | |
32 | |
| 32 | package CFClient::PodToPango; |
33 | package CFClient::PodToPango; |
| 33 | |
34 | |
| 34 | use base Pod::POM::View::Text; |
35 | use base Pod::POM::View::Text; |
| … | |
… | |
| 298 | |
299 | |
| 299 | } |
300 | } |
| 300 | |
301 | |
| 301 | sub update_widgets { |
302 | sub update_widgets { |
| 302 | my ($self) = @_; |
303 | my ($self) = @_; |
|
|
304 | |
|
|
305 | # necessary to avoid cyclic references |
|
|
306 | Scalar::Util::weaken $self; |
| 303 | |
307 | |
| 304 | my $button_cb = sub { |
308 | my $button_cb = sub { |
| 305 | my (undef, $ev, $x, $y) = @_; |
309 | my (undef, $ev, $x, $y) = @_; |
| 306 | |
310 | |
| 307 | my $targ = $::CONN->{player}{tag}; |
311 | my $targ = $::CONN->{player}{tag}; |
