--- deliantra/Deliantra-Client/bin/cfplus	2007/07/21 13:37:09	1.180
+++ deliantra/Deliantra-Client/bin/cfplus	2007/07/21 16:07:53	1.181
@@ -84,6 +84,7 @@
 use CFPlus::Protocol;
 use CFPlus::DB;
 use CFPlus::UI;
+use CFPlus::UI::Canvas;
 use CFPlus::UI::Inventory;
 use CFPlus::UI::SpellList;
 use CFPlus::Pod;
@@ -754,13 +755,39 @@
 
    $table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
 
-   $table->add_at (7,7, my $t = new CFPlus::UI::Table);
+   $table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
    $t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2);
    $t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1);
    $t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2);
    $t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1);
    $t->add_at (1,1, new CFPlus::UI::Label text => "e");
 
+   $table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
+
+   $c->add_items ({
+      type  => "line_loop",
+      color => [0, 1, 0],
+      width => 9,
+      coord_mode => "abs",
+      coord => [[10, 5], [5, 50], [20, 5], [5, 60]],
+   });
+
+   $c->add_items ({
+      type  => "lines",
+      color => [1, 1, 0],
+      width => 2,
+      coord_mode => "rel",
+      coord => [[0,0], [1,1], [1,0], [0,1]],
+   });
+
+   $c->add_items ({
+      type  => "polygon",
+      color => [0, 0.43, 0],
+      width => 2,
+      coord_mode => "rel",
+      coord => [[0,0.2], [1,.4], [1,.6], [0,.8]],
+   });
+
    $table
 }