--- deliantra/Deliantra-Client/bin/pclient	2006/04/17 20:29:37	1.125
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/18 01:36:13	1.130
@@ -63,14 +63,12 @@
 
 sub status {
    $STATUS_LINE->set_text ($_[0]);
-   my ($w, $h) = $STATUS_LINE->size_request;
-   $STATUS_LINE->size_allocate (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $h, $w, $h);
+   $STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
 }
 
 sub debug {
    $DEBUG_STATUS->set_text ($_[0]);
-   my ($w, $h) = $DEBUG_STATUS->size_request;
-   $DEBUG_STATUS->size_allocate ($WIDTH - $w, 0, $w, $h);
+   $DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});
 }
 
 sub start_game {
@@ -353,8 +351,8 @@
 }
 
 sub sdl_init {
-   #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE
-   SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO
+   SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE
+   #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO
       and die "SDL::Init failed!\n";
 }
 
@@ -442,12 +440,13 @@
 
    $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
 
-   my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 150, y => 0);
-   $tgw->add (my $hb = new CFClient::UI::HBox (req_w => 60, req_h => 150));
-      $hb->add (my $fg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'food', expand => 1));
-      $hb->add (my $mg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'mana', expand => 1));
-      $hb->add (my $hg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'hp', expand => 1));
-      $hb->add (my $gg = new CFClient::UI::VGauge (w => 30, h => 150, gauge => 'grace', expand => 1));
+   my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0);
+   $tgw->add (my $hbox = new CFClient::UI::HBox ());
+
+   $hbox->add (my $hg = new CFClient::UI::VGauge (gauge => 'hp'));
+   $hbox->add (my $mg = new CFClient::UI::VGauge (gauge => 'mana'));
+   $hbox->add (my $gg = new CFClient::UI::VGauge (gauge => 'grace'));
+   $hbox->add (my $fg = new CFClient::UI::VGauge (gauge => 'food'));
 
    $GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg };
    $CFClient::UI::ROOT->add ($tgw);