… | |
… | |
381 | } |
381 | } |
382 | |
382 | |
383 | sub make_stats_window { |
383 | sub 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 | ); |