| … | |
… | |
| 201 | my ($widget) = @_; |
201 | my ($widget) = @_; |
| 202 | |
202 | |
| 203 | $::CONN && $::CONN->ex ($self->{tag}, sub { |
203 | $::CONN && $::CONN->ex ($self->{tag}, sub { |
| 204 | my ($long_desc) = @_; |
204 | my ($long_desc) = @_; |
| 205 | |
205 | |
| 206 | $long_desc =~ s/\s+$//; |
206 | $long_desc = DC::Protocol::sanitise_xml ($long_desc); |
| 207 | |
207 | |
| 208 | $self->{long_desc} = $long_desc; |
208 | $self->{long_desc} = $long_desc; |
| 209 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
209 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
| 210 | }); |
210 | }); |
| 211 | }, |
211 | }, |
