--- deliantra/Deliantra-Client/bin/pclient	2006/04/11 18:06:53	1.72
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/11 19:31:19	1.73
@@ -112,37 +112,6 @@
    $MAPWIDGET = new CFClient::UI::MapWidget;
    $CFClient::UI::TOPLEVEL->add ($MAPWIDGET);
    $MAPWIDGET->focus_in;
-
-   # Test code #d#
-   unless ($tw) { # haha...
-      my $w = new CFClient::UI::Window
-         w => 300, h => 300,
-         child => (my $frame = new CFClient::UI::FancyFrame);
-      $CFClient::UI::TOPLEVEL->add ($w);
-
-      $frame->add (my $vbox = new CFClient::UI::VBox);
-
-      $vbox->add (new CFClient::UI::Entry text => "hallo");
-      $vbox->add (new CFClient::UI::Slider);
-      
-      $tw = new CFClient::UI::Animator x => $WIDTH - 200, w => 600, h => 300;
-      my $lbl1 = new CFClient::UI::Label text => "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
-      my $lbl2 = new CFClient::UI::Label text => "LBL2";
-      my $vb = new CFClient::UI::VBox;
-      my $f  = new CFClient::UI::FancyFrame;
-      my $f2 = new CFClient::UI::FancyFrame;
-      $f->add ($lbl1);
-      $f2->add ($lbl2);
-      $vb->add ($f);
-      $vb->add ($f2, 1);
-
-      $tw->add ($vb);
-      $tw->moveto (0, 0);
-      $CFClient::UI::TOPLEVEL->add ($tw);
-
-#     $f->move ($WIDTH - 200, 0);
-#     $CFClient::UI::TOPLEVEL->add ($f);
-   }
 }
 
 sub destroy_screen {
@@ -198,6 +167,7 @@
    glLoadIdentity;
    glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000;
    glMatrixMode GL_MODELVIEW;
+   glLoadIdentity;
 
    glClear GL_COLOR_BUFFER_BIT;