E CVS: proto leviathan

[Enlightenment CVS]

Enlightenment CVS committal

Author  : leviathan
Project : e17
Module  : proto

Dir     : e17/proto/etk-perl/etk_test


Modified Files:
        etk_test.pl 


Log Message:
- TextView test
- start of Textblock implementation

===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -3 -r1.20 -r1.21
--- etk_test.pl 1 Jul 2006 20:20:22 -0000       1.20
+++ etk_test.pl 5 Jul 2006 00:00:07 -0000       1.21
@@ -51,6 +51,7 @@
 use Etk::Tree::Model::Checkbox;
 use Etk::Alignment;
 use Etk::Notebook;
+use Etk::TextView;
 
 Etk::Init();
 
@@ -932,9 +933,57 @@
 sub textview_window_show
 {
     my $win = Etk::Window->new("Etk-Perl Textview Test");
-    my $label = Etk::Label->new("<b>Etk::Textview is not implemented 
yet.</b>");
+    my $vbox = Etk::VBox->new(0, 0);
+
+    $win->SizeRequestSet(150, 150);
+    $win->Resize(400, 300);
+
+    my $text_view = Etk::TextView->new();
+
+    my $text_block = $text_view->TextBlockGet();
+
+    $text_block->TextSet(
+    join ('',
+      "<p align=\"center\"><b><u><font size=18>Etk 
Textblock</font></u></b></p> \n",
+      "<b><u><font size=12>Supported tags:</font></u></b>\n",
+      "<p left_margin=30>",
+         "<b>&lt;b&gt;:</b> <b>Bold</b>\n",
+         "<b>&lt;i&gt;:</b> <i>Italic</i>\n",
+         "<b>&lt;u&gt;:</b> <u>Underline</u>\n",
+      "</p>" ,
+      "<p left_margin=60>",
+            "<i>type:</i> Whether the text is single or double underlined\n",
+            "<i>color1:</i> The color of the first underline\n",
+            "<i>color2:</i> The color of the second underline\n",
+      "</p>"  ,
+      "<p left_margin=30>",
+         "<b>&lt;s&gt;:</b> <s>Strikethrough</s>\n",
+      "</p>"  ,
+      "<p left_margin=60>",
+            "<i>color:</i> The color of the strikethrough\n",
+      "</p>"  ,
+      "<p left_margin=30>",
+         "<b>&lt;font&gt;:</b>\n",
+      "</p>"  ,
+      "<p left_margin=60>",
+            "<i>face:</i> The face of the font\n",
+            "<i>size:</i> The size of the font\n",
+            "<i>color:</i> The color of the font\n",
+      "</p>"  ,
+      "<p left_margin=30>",
+         "<b>&lt;style&gt;:</b>\n",
+      "</p>"  ,
+      "<p left_margin=60>",
+            "<i>effect:</i> The type of effect to apply on the text\n",
+            "<i>color1:</i> The first color of the effect\n",
+            "<i>color2:</i> The second color of the effect\n",
+      "</p>") , 1);
+
+    $vbox->PackStart($text_view);
+
+    print $text_block->TextGet(0), "\n";
     
-    $win->Add($label);
+    $win->Add($vbox);
     $win->BorderWidthSet(10);
     $win->ShowAll();  
 }



Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs