| … | |
… | |
| 194 | |
194 | |
| 195 | on_button_down => $button_cb, |
195 | on_button_down => $button_cb, |
| 196 | on_tooltip_show => sub { |
196 | on_tooltip_show => sub { |
| 197 | my ($widget) = @_; |
197 | my ($widget) = @_; |
| 198 | |
198 | |
| 199 | $::CONN->ex ($self->{tag}, sub { |
199 | $::CONN && $::CONN->ex ($self->{tag}, sub { |
| 200 | my ($long_desc) = @_; |
200 | my ($long_desc) = @_; |
| 201 | |
201 | |
| 202 | $long_desc =~ s/\s+$//; |
202 | $long_desc =~ s/\s+$//; |
| 203 | |
203 | |
| 204 | $self->{long_desc} = $long_desc; |
204 | $self->{long_desc} = $long_desc; |
| … | |
… | |
| 228 | . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ") |
228 | . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ") |
| 229 | . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") |
229 | . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") |
| 230 | . "\n\n$tooltip_std" |
230 | . "\n\n$tooltip_std" |
| 231 | ); |
231 | ); |
| 232 | } |
232 | } |
|
|
233 | |
