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.128 by root, Mon Apr 17 21:21:30 2006 UTC vs.
Revision 1.129 by root, Mon Apr 17 21:22:54 2006 UTC

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

Diff Legend

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