--- deliantra/Deliantra-Client/bin/pclient	2006/04/09 17:34:15	1.45
+++ deliantra/Deliantra-Client/bin/pclient	2006/04/09 17:39:56	1.46
@@ -81,15 +81,28 @@
    # Test code #d#
    unless ($tw) { # haha...
       $tw = new Crossfire::Client::Widget::Animator;
-      $tw->add (my $f = new Crossfire::Client::Widget::FancyFrame);
-      $f->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!"
-      );
+      my $lbl1 = new Crossfire::Client::Widget::Label
+         0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
+      my $lbl2 = new Crossfire::Client::Widget::Label
+         0, 0, 10, $FONTSIZE, "LBL2";
 
+      my $vb = new Crossfire::Client::Widget::VBox;
+      my $f  = new Crossfire::Client::Widget::FancyFrame;
+      my $f2 = new Crossfire::Client::Widget::FancyFrame;
+      $f->add ($lbl1);
+      $f2->add ($lbl2);
+      $vb->add ($f);
+      $vb->add ($f2, 1);
+
+      $tw->add ($vb);
+      $tw->w (400);
+      $tw->h (300);
       $tw->move ($WIDTH - 200, 0);
       $tw->moveto (0, 0);
       $TOPLEVEL->add ($tw);
+
+#     $f->move ($WIDTH - 200, 0);
+#     $TOPLEVEL->add ($f);
    }
 
    glClearColor 0, 0, 0, 0;