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}; |