| 1 | package CFPlus::Item; |
1 | package CFPlus::Item; |
| 2 | |
2 | |
| 3 | use strict; |
3 | use strict; |
|
|
4 | use utf8; |
|
|
5 | |
| 4 | use Crossfire::Protocol::Constants; |
6 | use Crossfire::Protocol::Constants; |
| 5 | |
7 | |
| 6 | my $last_enter_count = 1; |
8 | my $last_enter_count = 1; |
| 7 | |
9 | |
| 8 | sub desc_string { |
10 | sub desc_string { |
| … | |
… | |
| 68 | |
70 | |
| 69 | sub update_widgets { |
71 | sub update_widgets { |
| 70 | my ($self) = @_; |
72 | my ($self) = @_; |
| 71 | |
73 | |
| 72 | # necessary to avoid cyclic references |
74 | # necessary to avoid cyclic references |
| 73 | Scalar::Util::weaken $self; |
75 | CFPlus::weaken $self; |
| 74 | |
76 | |
| 75 | my $button_cb = sub { |
77 | my $button_cb = sub { |
| 76 | my (undef, $ev, $x, $y) = @_; |
78 | my (undef, $ev, $x, $y) = @_; |
| 77 | |
79 | |
| 78 | my $targ = $::CONN->{player}{tag}; |
80 | my $targ = $::CONN->{player}{tag}; |
