--- deliantra/Deliantra-Client/bin/pclient	2006/04/08 18:18:09	1.34
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/08 18:48:35	1.35
@@ -73,10 +73,10 @@
 
    # Test code #d#
    $tw = new Crossfire::Client::Widget::Window;
-   $tw->add (my $lbl = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!");
+   $tw->add (my $lbl = new Crossfire::Client::Widget::Label 0, 0, 10, $UIFONT, "Foo in the garden!");
 #    $tw = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!";
 
-   $tw->move (0, $HEIGHT - 50);
+   $tw->move (0, 0);
    $tw->activate;
    # Test code end #d#
 
@@ -87,12 +87,6 @@
    glDisable GL_DEPTH_TEST;
    glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
 
-   glMatrixMode GL_PROJECTION;
-   glLoadIdentity;
-   glOrtho 0, $WIDTH, $HEIGHT, 0, -100 , 100;
-
-   glMatrixMode GL_MODELVIEW;
-
    $_->() for @GL_INIT;
 }
 
@@ -127,6 +121,12 @@
 
 sub force_refresh {
    glViewport 0, 0, $WIDTH, $HEIGHT;
+
+   glMatrixMode GL_PROJECTION;
+   glLoadIdentity;
+   glOrtho 0, $WIDTH, $HEIGHT, 0, -100 , 100;
+   glMatrixMode GL_MODELVIEW;
+
    glClear GL_COLOR_BUFFER_BIT;
 
    $_->draw for @Crossfire::Client::Widget::ACTIVE_WIDGETS;