--- deliantra/Deliantra-Client/bin/pclient	2006/04/08 18:15:59	1.33
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/08 22:23:57	1.36
@@ -43,7 +43,7 @@
 
 our $ALT_ENTER_MESSAGE;
 
-our $tw;
+our $tw; # Test widget #d#
 
 sub init_screen {
    $SDL_APP = new SDL::App
@@ -71,26 +71,24 @@
    $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]);
    $ALT_ENTER_MESSAGE->activate;
 
+   # Test code #d#
+   my $frm =  new Crossfire::Client::Widget::Frame;
    $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 = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Foo in the garden!";
+   $frm->add (new Crossfire::Client::Widget::Label 0, 0, 10, $UIFONT, "Foo in the garden!");
+   $tw->add ($frm);
 
-   $tw->move (0, $HEIGHT - 50);
+   $tw->move (0, $HEIGHT - 120);
    $tw->activate;
+   # Test code end #d#
 
    glClearColor 0, 0, 0, 0;
 
    glEnable GL_TEXTURE_2D;
+   glEnable GL_COLOR_MATERIAL;
    glShadeModel GL_FLAT;
    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;
 }
 
@@ -125,6 +123,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;