| … | |
… | |
| 441 | }); |
441 | }); |
| 442 | |
442 | |
| 443 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
443 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
| 444 | |
444 | |
| 445 | my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 150, y => 0); |
445 | my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 150, y => 0); |
| 446 | $tgw->add (my $hb = new CFClient::UI::HBox (req_w => 60, req_h => 150)); |
446 | $tgw->add (my $hbox = new CFClient::UI::HBox (req_w => 60, req_h => 150)); |
|
|
447 | |
| 447 | $hb->add (my $fg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'food', expand => 1)); |
448 | $hbox->add (my $fg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'food', expand => 1)); |
| 448 | $hb->add (my $mg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'mana', expand => 1)); |
449 | $hbox->add (my $mg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'mana', expand => 1)); |
| 449 | $hb->add (my $hg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'hp', expand => 1)); |
450 | $hbox->add (my $hg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'hp', expand => 1)); |
| 450 | $hb->add (my $gg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'grace', expand => 1)); |
451 | $hbox->add (my $gg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'grace', expand => 1)); |
| 451 | |
452 | |
| 452 | $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg }; |
453 | $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg }; |
| 453 | $CFClient::UI::ROOT->add ($tgw); |
454 | $CFClient::UI::ROOT->add ($tgw); |
| 454 | } |
455 | } |
| 455 | |
456 | |
