From: Enlightenment C. <no...@cv...> - 2007-01-14 13:39:42
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : libs/etk-perl Dir : e17/libs/etk-perl Modified Files: Etk.xs Log Message: -Add missing Textblock functions -Add theme missing functions =================================================================== RCS file: /cvs/e/e17/libs/etk-perl/Etk.xs,v retrieving revision 1.69 retrieving revision 1.70 diff -u -3 -r1.69 -r1.70 --- Etk.xs 14 Jan 2007 19:29:47 -0000 1.69 +++ Etk.xs 14 Jan 2007 19:39:40 -0000 1.70 @@ -3792,12 +3792,6 @@ OUTPUT: RETVAL -void -etk_textblock_unrealize(textblock) - Etk_Textblock * textblock - ALIAS: - Unrealize=1 - const char * etk_textblock_range_text_get(tb, iter1, iter2, markup) Etk_Textblock *tb @@ -3865,6 +3859,31 @@ ALIAS: DeleteRange=1 +void +etk_textblock_unicode_length_get(unicode_string) + const char *unicode_string + ALIAS: + UnicodeLengthGet=1 + +Etk_Bool etk_textblock_is_white_char(c) + int c + ALIAS: + IsWhiteChar=1 + +void +etk_textblock_char_size_get(evas, font_face, font_size) + Evas * evas + const char * font_face + int font_size + ALIAS: + CharSizeGet=1 + PPCODE: + int w, h; + etk_textblock_char_size_get(eva, font_face, font_size, &w, &h); + EXTEND(SP, 2); + PUSHs(sv_2mortal(newSViv(w))); + PUSHs(sv_2mortal(newSViv(h))); + MODULE = Etk::Theme PACKAGE = Etk::Theme PREFIX = etk_theme_ @@ -3890,7 +3909,15 @@ ALIAS: WidgetSet=1 +void +etk_theme_widget_available_themes_get() + ALIAS: + WidgetAvailableThemesGet=1 + PPCODE: + Evas_List * list; + list = etk_theme_widget_available_themes_get(); + XPUSHs(sv_2mortal(newSVCharEvasList(list))); const char * etk_theme_icon_get() @@ -3903,6 +3930,16 @@ ALIAS: IconSet=1 +void +etk_theme_icon_available_themes_get() + ALIAS: + IconAvailableThemesGet=1 + PPCODE: + Evas_List * list; + + list = etk_theme_icon_available_themes_get(); + XPUSHs(sv_2mortal(newSVCharEvasList(list))); + Etk_Bool etk_theme_group_exists(file, group, parent) const char * file |