ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.105 by root, Sun Jul 23 16:11:12 2006 UTC vs.
Revision 1.106 by root, Mon Jul 24 04:24:42 2006 UTC

319 . "Middle click - apply\n" 319 . "Middle click - apply\n"
320 . "Shift-Middle click - lock/unlock\n" 320 . "Shift-Middle click - lock/unlock\n"
321 . "Right click - further options" 321 . "Right click - further options"
322 . "</small>\n"; 322 . "</small>\n";
323 323
324 my $bg = $self->{flags} & F_CURSED ? [1 , 0 , 0, 0.5]
325 : $self->{flags} & F_MAGIC ? [0.2, 0.2, 1, 0.5]
326 : undef;
327
324 $self->{face_widget} ||= new CFClient::UI::Face 328 $self->{face_widget} ||= new CFClient::UI::Face
325 can_events => 1, 329 can_events => 1,
326 can_hover => 1, 330 can_hover => 1,
327 anim => $self->{anim}, 331 anim => $self->{anim},
328 animspeed => $self->{animspeed}, # TODO# must be set at creation time 332 animspeed => $self->{animspeed}, # TODO# must be set at creation time
329 on_button_down => $button_cb, 333 on_button_down => $button_cb,
330 ; 334 ;
335 $self->{face_widget}{bg} = $bg;
331 $self->{face_widget}{face} = $self->{face}; 336 $self->{face_widget}{face} = $self->{face};
332 $self->{face_widget}{anim} = $self->{anim}; 337 $self->{face_widget}{anim} = $self->{anim};
333 $self->{face_widget}{animspeed} = $self->{animspeed}; 338 $self->{face_widget}{animspeed} = $self->{animspeed};
334 $self->{face_widget}->set_tooltip ( 339 $self->{face_widget}->set_tooltip (
335 "<b>Face/Animation.</b>\n" 340 "<b>Face/Animation.</b>\n"
344 ellipsise => 2, 349 ellipsise => 2,
345 align => -1, 350 align => -1,
346 on_button_down => $button_cb, 351 on_button_down => $button_cb,
347 ; 352 ;
348 my $desc = CFClient::Item::desc_string $self; 353 my $desc = CFClient::Item::desc_string $self;
354 $self->{desc_widget}{bg} = $bg;
349 $self->{desc_widget}->set_text ($desc); 355 $self->{desc_widget}->set_text ($desc);
350 $self->{desc_widget}->set_tooltip ("<b>$desc</b>.\n$tooltip_std"); 356 $self->{desc_widget}->set_tooltip ("<b>$desc</b>.\n$tooltip_std");
351 357
352 $self->{weight_widget} ||= new CFClient::UI::Label 358 $self->{weight_widget} ||= new CFClient::UI::Label
353 can_events => 1, 359 can_events => 1,
354 can_hover => 1, 360 can_hover => 1,
355 ellipsise => 0, 361 ellipsise => 0,
356 align => 0, 362 align => 0,
357 on_button_down => $button_cb, 363 on_button_down => $button_cb,
358 ; 364 ;
365 $self->{weight_widget}{bg} = $bg;
359 $self->{weight_widget}->set_text (CFClient::Item::weight_string $self); 366 $self->{weight_widget}->set_text (CFClient::Item::weight_string $self);
360
361 $self->{weight_widget}->set_tooltip ( 367 $self->{weight_widget}->set_tooltip (
362 "<b>Weight</b>.\n" 368 "<b>Weight</b>.\n"
363 . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ") 369 . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ")
364 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ") 370 . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ")
365 . "\n\n$tooltip_std" 371 . "\n\n$tooltip_std"

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines