| … | |
… | |
| 174 | |
174 | |
| 175 | my $desc = DC::Item::desc_string $self; |
175 | my $desc = DC::Item::desc_string $self; |
| 176 | my $face_tooltip = "<b>$desc</b>\n\n$tooltip_std"; |
176 | my $face_tooltip = "<b>$desc</b>\n\n$tooltip_std"; |
| 177 | |
177 | |
| 178 | if (my $face = $self->{face_widget}) { |
178 | if (my $face = $self->{face_widget}) { |
|
|
179 | # already exists, so update if it changed |
| 179 | if ($face->{bg} != $bg) { |
180 | if ($face->{bg} != $bg) { |
| 180 | $face->{bg} = $bg; |
181 | $face->{bg} = $bg; |
| 181 | $face->update; |
182 | $face->update; |
| 182 | } |
183 | } |
| 183 | |
184 | |
|
|
185 | $face->set_bg ($bg) if $face->{bg} != $bg; |
| 184 | $face->set_face ($self->{face}) if $face->{face} != $self->{face}; |
186 | $face->set_face ($self->{face}) if $face->{face} != $self->{face}; |
| 185 | $face->set_anim ($self->{anim}) if $face->{anim} != $self->{anim}; |
187 | $face->set_anim ($self->{anim}) if $face->{anim} != $self->{anim}; |
| 186 | $face->set_animspeed ($self->{animspeed}) if $face->{animspeed} != $self->{animspeed}; |
188 | $face->set_animspeed ($self->{animspeed}) if $face->{animspeed} != $self->{animspeed}; |
| 187 | |
189 | |
| 188 | #$face->set_tooltip ( |
190 | #$face->set_tooltip ( |
| … | |
… | |
| 191 | # . ($self->{animspeed} ? "Item uses animation #$self->{anim} at " . (1 / $self->{animspeed}) . "fps. " : "Item is not animated. ") |
193 | # . ($self->{animspeed} ? "Item uses animation #$self->{anim} at " . (1 / $self->{animspeed}) . "fps. " : "Item is not animated. ") |
| 192 | # . "\n\n$tooltip_std" |
194 | # . "\n\n$tooltip_std" |
| 193 | #); |
195 | #); |
| 194 | $face->set_tooltip ($face_tooltip); |
196 | $face->set_tooltip ($face_tooltip); |
| 195 | } else { |
197 | } else { |
|
|
198 | # new object, create new face |
| 196 | $self->{face_widget} = new DC::UI::Face |
199 | $self->{face_widget} = new DC::UI::Face |
| 197 | can_events => 1, |
200 | can_events => 1, |
| 198 | can_hover => 1, |
201 | can_hover => 1, |
| 199 | bg => $bg, |
202 | bg => $bg, |
| 200 | face => $self->{face}, |
203 | face => $self->{face}, |
| … | |
… | |
| 224 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
227 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
| 225 | }); |
228 | }); |
| 226 | }, |
229 | }, |
| 227 | ; |
230 | ; |
| 228 | |
231 | |
| 229 | $self->{desc_widget}{bg} = $bg; |
232 | my $long_desc = $self->{long_desc} || $desc; |
|
|
233 | |
|
|
234 | $self->{desc_widget}->set_bg ($bg) if $self->{desc_widget}{bg} != $bg; |
| 230 | $self->{desc_widget}->set_text ($desc); |
235 | $self->{desc_widget}->set_text ($desc); |
| 231 | |
|
|
| 232 | my $long_desc = $self->{long_desc} || $desc; |
|
|
| 233 | $self->{desc_widget}->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
236 | $self->{desc_widget}->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
| 234 | |
237 | |
| 235 | $self->{weight_widget} ||= new DC::UI::Label |
238 | $self->{weight_widget} ||= new DC::UI::Label |
| 236 | can_events => 1, |
239 | can_events => 1, |
| 237 | can_hover => 1, |
240 | can_hover => 1, |
