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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.184 by root, Tue Apr 25 11:25:20 2006 UTC vs.
Revision 1.186 by root, Tue Apr 25 12:10:58 2006 UTC

… …
381} 381}
382 382
383sub make_stats_window { 383sub make_stats_window {
384 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats"; 384 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
385 385
386 $tgw->add (my $vb = new CFClient::UI::VBox); 386 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
387 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1); 387 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
388 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1); 388 $vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
389 389
390 $vb->add (my $hb = new CFClient::UI::HBox expand => 1); 390 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
391 391
… …
456 can_events => 1, 456 can_events => 1,
457 can_hover => 1, 457 can_hover => 1,
458 tooltip => $resist_names{$_}, 458 tooltip => $resist_names{$_},
459 ); 459 );
460 $tbl2->add ($col + 1, $row, new CFClient::UI::Image 460 $tbl2->add ($col + 1, $row, new CFClient::UI::Image
461 font => $FONT_FIXED,
461 can_hover => 1, 462 can_hover => 1,
462 can_events => 1, 463 can_events => 1,
463 image => "ui/resist/resist_$_.png", 464 image => "ui/resist/resist_$_.png",
464 tooltip => $resist_names{$_}, 465 tooltip => $resist_names{$_},
465 ); 466 );
… …
725} 726}
726 727
727sub message_window { 728sub message_window {
728 my $window = new CFClient::UI::FancyFrame 729 my $window = new CFClient::UI::FancyFrame
729 title => "Messages", 730 title => "Messages",
730 border_bg => [1, 1, 1, 0.5], 731 border_bg => [1, 1, 1, 1],
731 bg => [0.3, 0.3, 0.3, 0.8], 732 bg => [0, 0, 0, 0.5],
732 user_w => int $::WIDTH / 3, 733 user_w => int $::WIDTH / 3,
733 user_h => int $::HEIGHT / 5, 734 user_h => int $::HEIGHT / 5,
734 child => (my $vbox = new CFClient::UI::VBox); 735 child => (my $vbox = new CFClient::UI::VBox);
735 736
736 $vbox->add ($LOGVIEW = new CFClient::UI::TextView 737 $vbox->add ($LOGVIEW = new CFClient::UI::TextView

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines