… | |
… | |
379 | |
379 | |
380 | $win |
380 | $win |
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 (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 | |