[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/pclient

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.41 by elmex, Sun Apr 9 01:21:11 2006 UTC vs.
Revision 1.44 by elmex, Sun Apr 9 02:44:51 2006 UTC

                             "Use <b>Alt-Enter</b> to toggle fullscreen mode";
    $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]);
    $TOPLEVEL->add ($ALT_ENTER_MESSAGE);
    # Test code #d#
-   {
+   unless ($tw) { # haha...
-      my $frm =  new Crossfire::Client::Widget::Frame;
+      $tw = new Crossfire::Client::Widget::FancyFrame;
-      $tw = new Crossfire::Client::Widget::Window;
-      $frm->add (my $te = new Crossfire::Client::Widget::TextEntry 0, 0, 10, $FONTSIZE, "Foo in the garden!");
-      $tw->add ($frm);
+      $tw->add (
+         my $te = new Crossfire::Client::Widget::Label
+            0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!"
+      );
-      $tw->move (0, $HEIGHT - 120);
+      $tw->move ($WIDTH - 200, 0);
       $TOPLEVEL->add ($tw);
-#      $te->focus_in;
    }
    glClearColor 0, 0, 0, 0;
    glEnable GL_TEXTURE_2D;
    fullscreen => 0,
    host       => "crossfire.schmorp.de",
    port       => 13327,
 };
-Crossfire::Client::add_font Crossfire::Client::find_rcfile "uifont.ttf";
+Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf";
-Crossfire::Client::set_font "[Bitstream Vera Sans Mono]";
 $FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {};
 run_config_dialog
    login  => sub { start_game  },

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines