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:
- fixed tree creation issues,
  now you can call FieldsSet() and pass along anything, and the module
  will do the right thing for you, also FieldsGet() will return the
  appropriate data types.

===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -3 -r1.34 -r1.35
--- etk_test.pl 16 Aug 2006 20:21:56 -0000      1.34
+++ etk_test.pl 18 Aug 2006 20:22:59 -0000      1.35
@@ -423,7 +423,7 @@
     $tree->Freeze();
     
     my $col1 = $tree->ColNew("Column 1", 
Etk::Tree::Model::IconText->new($tree, FromEdje), 90);
-    my $col2 = $tree->ColNew("Column 2", Etk::Tree::Model::Int->new($tree), 
60);
+    my $col2 = $tree->ColNew("Column 2", Etk::Tree::Model::Double->new($tree), 
60);
     my $col3 = $tree->ColNew("Column 3", Etk::Tree::Model::Image->new($tree, 
FromFile), 60);
     my $col4 = $tree->ColNew("Column 4", 
Etk::Tree::Model::Checkbox->new($tree), 40);
 
@@ -434,16 +434,16 @@
            # print "toggle!\n";
        }
     );
-    
+
     $tree->Build();
 
     for(my $i = 0; $i < 1000; $i++)
     {
        my $row = $tree->Append();
-       $row->FieldSet($col1, Etk::Theme::icon_theme_get(), 
"places/user-home_16", "Row1");
-       $row->FieldSet($col2, 10);
-       $row->FieldSet($col3, "images/1star.png");
-       $row->FieldSet($col4, 1);
+       $row->FieldsSet($col1, Etk::Theme::icon_theme_get(), 
"places/user-home_16", "Row1");
+       $row->FieldsSet($col2, 10);
+       $row->FieldsSet($col3, "images/1star.png");
+       $row->FieldsSet($col4, 1);
     }
     $tree->Thaw();
     
@@ -465,7 +465,7 @@
 
 
     $tree->Build();        
-    #tree_add_items($tree, 500, @cols);
+    tree_add_items($tree, 500, @cols);
     my $frame = Etk::Frame->new("List Actions");
     $table->Attach($frame, 0, 1, 2, 2, 0, 0, HFill | VFill);
     my $hbox = Etk::HBox->new(1, 10);
@@ -499,7 +499,7 @@
     
     $button->SignalConnect("clicked",
        sub {
-           #$tree->Sort(\&tree_col2_compare_cb, $ascendant, $col2, undef);
+           #$tree->Sort(\&tree_col2_compare_cb, $ascendant, $col2, undef);   
            $tree->SortNumeric($ascendant, $col2, undef);
            $ascendant = !$ascendant;
        }
@@ -562,9 +562,9 @@
 
         
        my $row = $tree->Append();
-       $row->FieldSet($col1, "images/1star.png", $row_name);
-       $row->FieldSet($col2, $rand_value);
-       $row->FieldSet($col3, $star_path);
+       $row->FieldsSet($col1, "images/1star.png", $row_name);
+       $row->FieldsSet($col2, $rand_value);
+       $row->FieldsSet($col3, $star_path);
 
     }
     $tree->Thaw();



-------------------------------------------------------------------------
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