--- deliantra/Deliantra-Client/bin/pclient	2006/04/07 20:34:44	1.24
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/07 20:55:32	1.25
@@ -1,5 +1,7 @@
 #!/opt/bin/perl
+
 use strict;
+use utf8;
 
 use Glib;
 use Gtk2 -init;
@@ -25,7 +27,7 @@
 our $CFG;
 our $CONN;
 
-our $GUIFONT;
+our $UIFONT;
 
 our $SDL_TIMER;
 our $SDL_APP;
@@ -51,11 +53,9 @@
    glClearColor 0, 0, 0, 0;
 
    glEnable GL_TEXTURE_2D;
-   glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
    glShadeModel GL_FLAT;
    glDisable GL_DEPTH_TEST;
    glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
-   glEnable GL_BLEND;
 
    glMatrixMode GL_PROJECTION;
    glLoadIdentity;
@@ -79,8 +79,8 @@
 
    init_screen;
 
-#   $label = new Crossfire::Client::Widget::Label "Testü[]";
-#   $label->activate;
+   $label = new Crossfire::Client::Widget::Label 500, 10, 1, $UIFONT, "Testü[]";
+   $label->activate;
 
    $CONN = new conn
       host => $CFG->{host},
@@ -286,7 +286,7 @@
 
 SDL::TTFInit;
 
-$GUIFONT = SDL::TTFOpenFont Crossfire::Client::find_rcfile "uifont.ttf", 12
+$UIFONT = SDL::TTFOpenFont Crossfire::Client::find_rcfile "uifont.ttf", 24
    or die "TTFOpenFont: $!";
 
 run_config_dialog