Enlightenment CVS committal

Author  : leviathan
Project : e17
Module  : proto

Dir     : e17/proto/etk-perl


Modified Files:
        Etk.xs EtkTypes.c typemap 


Log Message:
adding Etk::Fixed

===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -3 -r1.62 -r1.63
--- Etk.xs      1 Dec 2006 20:40:13 -0000       1.62
+++ Etk.xs      9 Dec 2006 14:54:12 -0000       1.63
@@ -1642,6 +1642,50 @@
        OUTPUT:
        RETVAL
 
+MODULE = Etk::Fixed    PACKAGE = Etk::Fixed    PREFIX = etk_fixed_
+
+Etk_Fixed *
+new(class)
+       SV * class
+       CODE:
+       RETVAL = ETK_FIXED(etk_fixed_new());
+       OUTPUT:
+       RETVAL
+
+void
+etk_fixed_put(fixed, widget, x, y)
+       Etk_Fixed * fixed
+       Etk_Widget * widget
+       int x
+       int y
+       ALIAS:
+       Put=1
+
+void
+etk_fixed_move(fixed, widget, x, y)
+       Etk_Fixed * fixed
+       Etk_Widget * widget
+       int x
+       int y
+       ALIAS:
+       Move=1
+
+void
+etk_fixed_child_position_get(fixed, widget)
+       Etk_Fixed * fixed
+       Etk_Widget * widget
+       ALIAS:
+       ChildPositionGet=1
+       PPCODE:
+       
+       int x, y;
+       etk_fixed_child_position_get(fixed, widget, &x, &y);
+       EXTEND(SP, 2);
+       PUSHs(sv_2mortal(newSViv(x)));
+       PUSHs(sv_2mortal(newSViv(y)));
+
+
+
 MODULE = Etk::HBox     PACKAGE = Etk::HBox     PREFIX = etk_hbox_
        
 Etk_HBox *
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/EtkTypes.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -3 -r1.18 -r1.19
--- EtkTypes.c  1 Dec 2006 20:40:13 -0000       1.18
+++ EtkTypes.c  9 Dec 2006 14:54:12 -0000       1.19
@@ -88,6 +88,7 @@
        __("Etk_Entry",         "Etk::Entry");
        __("Etk_Filechooser_Widget",            "Etk::Filechooser");
        __("Etk_Frame",         "Etk::Frame");
+       __("Etk_Fixed",         "Etk::Fixed");
        __("Etk_Iconbox",               "Etk::Iconbox");
        __("Etk_Iconbox_Model",         "Etk::Iconbox::Model");
        __("Etk_Iconbox_Icon",          "Etk::Iconbox::Icon");
@@ -188,6 +189,7 @@
                                __("HPaned", "Paned");
                                __("VPaned", "Paned");
                        __("Table", "Container");
+                       __("Fixed", "Container");
                __("Entry", "Widget");
                __("Filechooser", "Widget");
                __("Iconbox", "Widget");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/typemap,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -3 -r1.22 -r1.23
--- typemap     1 Dec 2006 20:40:13 -0000       1.22
+++ typemap     9 Dec 2006 14:54:12 -0000       1.23
@@ -31,6 +31,7 @@
 Etk_Filechooser_Widget *                       T_PTROBJ_ETK
 Etk_Table_Fill_Policy                          T_IV
 Etk_Frame *                                    T_PTROBJ_ETK
+Etk_Fixed *                                    T_PTROBJ_ETK
 Etk_Geometry                                   T_GEOMETRY
 Etk_Geometry *                                 T_GEOMETRY_PTR
 Etk_Iconbox *                                  T_PTROBJ_ETK



-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs

Reply via email to