| 1 |
pcg |
1.1 |
|
| 2 |
pcg |
1.3 |
Gtk2 |
| 3 |
|
|
* xs/GtkAdjustment.xs: add accors/mutators for struct values. |
| 4 |
pcg |
1.5 |
* xs/GtkTextTag.xs: add GtkTextTagTable + some methods. |
| 5 |
|
|
* gtk-demo/textview.pl: fix demo to actually use unicode |
| 6 |
|
|
as opposed to the garbled latin1. |
| 7 |
pcg |
1.3 |
|
| 8 |
pcg |
1.5 |
Index: Gtk2/gtk-demo/textview.pl |
| 9 |
pcg |
1.1 |
=================================================================== |
| 10 |
pcg |
1.5 |
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/gtk-demo/textview.pl,v |
| 11 |
pcg |
1.1 |
retrieving revision 1.4 |
| 12 |
pcg |
1.5 |
diff -u -p -r1.4 textview.pl |
| 13 |
|
|
--- Gtk2/gtk-demo/textview.pl 17 May 2003 13:31:02 -0000 1.4 |
| 14 |
|
|
+++ Gtk2/gtk-demo/textview.pl 2 Jun 2003 16:21:31 -0000 |
| 15 |
|
|
@@ -246,10 +246,10 @@ sub insert_text { |
| 16 |
|
|
$buffer->insert_with_tags_by_name ($iter, "Internationalization. ", |
| 17 |
|
|
"heading"); |
| 18 |
|
|
|
| 19 |
|
|
- $buffer->insert ($iter, "You can put all sorts of Unicode text in the buffer.\n\nGerman (Deutsch S\303\274d) Gr\303\274\303\237 Gott\nGreek (\316\225\316\273\316\273\316\267\316\275\316\271\316\272\316\254) \316\223\316\265\316\271\316\254 \317\203\316\261\317\202\nHebrew \327\251\327\234\327\225\327\235\nJapanese (\346\227\245\346\234\254\350\252\236)\n\nThe widget properly handles bidirectional text, word wrapping, DOS/UNIX/Unicode paragraph separators, grapheme boundaries, and so on using the Pango internationalization framework.\n"); |
| 20 |
|
|
+ $buffer->insert ($iter, "You can put all sorts of Unicode text in the buffer.\n\nGerman (S\x{fc}ddeutschland) Gr\x{fc}\x{df} Gott\nGreek (\x{395}\x{3bb}\x{3bb}\x{3b7}\x{3bd}\x{3b9}\x{3ba}\x{3ac}) \x{393}\x{3b5}\x{3b9}\x{3ac} \x{3c3}\x{3b1}\x{3c2}\nHebrew \x{5e9}\x{5dc}\x{5d5}\x{5dd}\nJapanese (\x{65e5}\x{672c}\x{8a9e})\n\nThe widget properly handles bidirectional text, word wrapping, DOS/UNIX/Unicode paragraph separators, grapheme boundaries, and so on using the Pango internationalization framework.\n"); |
| 21 |
pcg |
1.1 |
|
| 22 |
pcg |
1.5 |
$buffer->insert ($iter, "Here's a word-wrapped quote in a right-to-left language:\n"); |
| 23 |
|
|
- $buffer->insert_with_tags_by_name ($iter, "\331\210\331\202\330\257 \330\250\330\257\330\243 \330\253\331\204\330\247\330\253 \331\205\331\206 \330\243\331\203\330\253\330\261 \330\247\331\204\331\205\330\244\330\263\330\263\330\247\330\252 \330\252\331\202\330\257\331\205\330\247 \331\201\331\212 \330\264\330\250\331\203\330\251 \330\247\331\203\330\263\331\212\331\210\331\206 \330\250\330\261\330\247\331\205\330\254\331\207\330\247 \331\203\331\205\331\206\330\270\331\205\330\247\330\252 \331\204\330\247 \330\252\330\263\330\271\331\211 \331\204\331\204\330\261\330\250\330\255\330\214 \330\253\331\205 \330\252\330\255\331\210\331\204\330\252 \331\201\331\212 \330\247\331\204\330\263\331\206\331\210\330\247\330\252 \330\247\331\204\330\256\331\205\330\263 \330\247\331\204\331\205\330\247\330\266\331\212\330\251 \330\245\331\204\331\211 \331\205\330\244\330\263\330\263\330\247\330\252 \331\205\330\247\331\204\331\212\330\251 \331\205\331\206\330\270\331\205\330\251\330\214 \331\210\330\250\330\247\330\252\330\252 \330\254\330\262\330\241\330\247 \331\205\331\206 \330\247\331\204\331\206\330\270\330\247\331\205 \330\247\331\204\331\205\330\247\331\204\331\212 \331\201\331\212 \330\250\331\204\330\257\330\247\331\206\331\207\330\247\330\214 \331\210\331\204\331\203\331\206\331\207\330\247 \330\252\330\252\330\256\330\265\330\265 \331\201\331\212 \330\256\330\257\331\205\330\251 \331\202\330\267\330\247\330\271 \330\247\331\204\331\205\330\264\330\261\331\210\330\271\330\247\330\252 \330\247\331\204\330\265\330\272\331\212\330\261\330\251. \331\210\330\243\330\255\330\257 \330\243\331\203\330\253\330\261 \331\207\330\260\331\207 \330\247\331\204\331\205\330\244\330\263\330\263\330\247\330\252 \331\206\330\254\330\247\330\255\330\247 \331\207\331\210 \302\273\330\250\330\247\331\206\331\203\331\210\330\263\331\210\331\204\302\253 \331\201\331\212 \330\250\331\210\331\204\331\212\331\201\331\212\330\247.\n\n", |
| 24 |
|
|
+ $buffer->insert_with_tags_by_name ($iter, "\x{648}\x{642}\x{62f} \x{628}\x{62f}\x{623} \x{62b}\x{644}\x{627}\x{62b} \x{645}\x{646} \x{623}\x{643}\x{62b}\x{631} \x{627}\x{644}\x{645}\x{624}\x{633}\x{633}\x{627}\x{62a} \x{62a}\x{642}\x{62f}\x{645}\x{627} \x{641}\x{64a} \x{634}\x{628}\x{643}\x{629} \x{627}\x{643}\x{633}\x{64a}\x{648}\x{646} \x{628}\x{631}\x{627}\x{645}\x{62c}\x{647}\x{627} \x{643}\x{645}\x{646}\x{638}\x{645}\x{627}\x{62a} \x{644}\x{627} \x{62a}\x{633}\x{639}\x{649} \x{644}\x{644}\x{631}\x{628}\x{62d}\x{60c} \x{62b}\x{645} \x{62a}\x{62d}\x{648}\x{644}\x{62a} \x{641}\x{64a} \x{627}\x{644}\x{633}\x{646}\x{648}\x{627}\x{62a} \x{627}\x{644}\x{62e}\x{645}\x{633} \x{627}\x{644}\x{645}\x{627}\x{636}\x{64a}\x{629} \x{625}\x{644}\x{649} \x{645}\x{624}\x{633}\x{633}\x{627}\x{62a} \x{645}\x{627}\x{644}\x{64a}\x{629} \x{645}\x{646}\x{638}\x{645}\x{629}\x{60c} \x{648}\x{628}\x{627}\x{62a}\x{62a} \x{62c}\x{632}\x{621}\x{627} \x{645}\x{646} \x{627}\x{644}\x{646}\x{638}\x{627}\x{645} \x{627}\x{644}\x{645}\x{627}\x{644}\x{64a} \x{641}\x{64a} \x{628}\x{644}\x{62f}\x{627}\x{646}\x{647}\x{627}\x{60c} \x{648}\x{644}\x{643}\x{646}\x{647}\x{627} \x{62a}\x{62a}\x{62e}\x{635}\x{635} \x{641}\x{64a} \x{62e}\x{62f}\x{645}\x{629} \x{642}\x{637}\x{627}\x{639} \x{627}\x{644}\x{645}\x{634}\x{631}\x{648}\x{639}\x{627}\x{62a} \x{627}\x{644}\x{635}\x{63a}\x{64a}\x{631}\x{629}. \x{648}\x{623}\x{62d}\x{62f} \x{623}\x{643}\x{62b}\x{631} \x{647}\x{630}\x{647} \x{627}\x{644}\x{645}\x{624}\x{633}\x{633}\x{627}\x{62a} \x{646}\x{62c}\x{627}\x{62d}\x{627} \x{647}\x{648} \x{bb}\x{628}\x{627}\x{646}\x{643}\x{648}\x{633}\x{648}\x{644}\x{ab} \x{641}\x{64a} \x{628}\x{648}\x{644}\x{64a}\x{641}\x{64a}\x{627}.\n\n", |
| 25 |
|
|
"rtl_quote"); |
| 26 |
|
|
|
| 27 |
|
|
$buffer->insert ($iter, "You can put widgets in the buffer: Here's a button: "); |
| 28 |
pcg |
1.3 |
Index: Gtk2/xs/GtkAdjustment.xs |
| 29 |
|
|
=================================================================== |
| 30 |
|
|
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAdjustment.xs,v |
| 31 |
|
|
retrieving revision 1.3 |
| 32 |
|
|
diff -u -p -r1.3 GtkAdjustment.xs |
| 33 |
|
|
--- Gtk2/xs/GtkAdjustment.xs 22 May 2003 14:23:23 -0000 1.3 |
| 34 |
pcg |
1.5 |
+++ Gtk2/xs/GtkAdjustment.xs 2 Jun 2003 16:21:31 -0000 |
| 35 |
pcg |
1.3 |
@@ -58,3 +58,35 @@ gtk_adjustment_set_value (adjustment, va |
| 36 |
|
|
GtkAdjustment *adjustment |
| 37 |
|
|
gdouble value |
| 38 |
|
|
|
| 39 |
|
|
+gdouble |
| 40 |
|
|
+value (GtkAdjustment *adjustment, gdouble newval = 0) |
| 41 |
|
|
+ ALIAS: |
| 42 |
|
|
+ lower = 1 |
| 43 |
|
|
+ upper = 2 |
| 44 |
|
|
+ step_incrememt = 3 |
| 45 |
|
|
+ page_incrememt = 4 |
| 46 |
|
|
+ page_size = 5 |
| 47 |
|
|
+ CODE: |
| 48 |
|
|
+ switch (ix) { |
| 49 |
|
|
+ case 0: RETVAL = adjustment->value; |
| 50 |
|
|
+ if (items > 1) adjustment->value = newval; |
| 51 |
|
|
+ break; |
| 52 |
|
|
+ case 1: RETVAL = adjustment->lower; |
| 53 |
|
|
+ if (items > 1) adjustment->lower = newval; |
| 54 |
|
|
+ break; |
| 55 |
|
|
+ case 2: RETVAL = adjustment->upper; |
| 56 |
|
|
+ if (items > 1) adjustment->upper = newval; |
| 57 |
|
|
+ break; |
| 58 |
|
|
+ case 3: RETVAL = adjustment->step_increment; |
| 59 |
|
|
+ if (items > 1) adjustment->step_increment = newval; |
| 60 |
|
|
+ break; |
| 61 |
|
|
+ case 4: RETVAL = adjustment->page_increment; |
| 62 |
|
|
+ if (items > 1) adjustment->page_increment = newval; |
| 63 |
|
|
+ break; |
| 64 |
|
|
+ case 5: RETVAL = adjustment->page_size; |
| 65 |
|
|
+ if (items > 1) adjustment->page_size = newval; |
| 66 |
|
|
+ break; |
| 67 |
|
|
+ } |
| 68 |
|
|
+ OUTPUT: |
| 69 |
|
|
+ RETVAL |
| 70 |
pcg |
1.5 |
+ |
| 71 |
|
|
Index: Gtk2/xs/GtkTextTag.xs |
| 72 |
|
|
=================================================================== |
| 73 |
|
|
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTextTag.xs,v |
| 74 |
|
|
retrieving revision 1.3 |
| 75 |
|
|
diff -u -p -r1.3 GtkTextTag.xs |
| 76 |
|
|
--- Gtk2/xs/GtkTextTag.xs 22 May 2003 14:23:24 -0000 1.3 |
| 77 |
|
|
+++ Gtk2/xs/GtkTextTag.xs 2 Jun 2003 16:21:31 -0000 |
| 78 |
|
|
@@ -83,3 +83,34 @@ gtk_text_attributes_copy_values (dest, s |
| 79 |
|
|
##gtk_text_attributes_ref (values) |
| 80 |
|
|
## GtkTextAttributes *values |
| 81 |
|
|
## |
| 82 |
|
|
+ |
| 83 |
|
|
+MODULE = Gtk2::TextTag PACKAGE = Gtk2::TextTagTable PREFIX = gtk_text_tag_table_ |
| 84 |
|
|
+ |
| 85 |
|
|
+GtkTextTagTable_noinc * |
| 86 |
|
|
+gtk_text_tag_table_new (class) |
| 87 |
|
|
+ SV * class |
| 88 |
|
|
+ C_ARGS: |
| 89 |
|
|
+ |
| 90 |
|
|
+void |
| 91 |
|
|
+gtk_text_tag_table_add (table, tag) |
| 92 |
|
|
+ GtkTextTagTable *table |
| 93 |
|
|
+ GtkTextTag *tag |
| 94 |
|
|
+ |
| 95 |
|
|
+void |
| 96 |
|
|
+gtk_text_tag_table_remove (table, tag) |
| 97 |
|
|
+ GtkTextTagTable *table |
| 98 |
|
|
+ GtkTextTag *tag |
| 99 |
|
|
+ |
| 100 |
|
|
+GtkTextTag * |
| 101 |
|
|
+gtk_text_tag_table_lookup (table, name) |
| 102 |
|
|
+ GtkTextTagTable * table |
| 103 |
|
|
+ const gchar * name |
| 104 |
|
|
+ |
| 105 |
|
|
+#void gtk_text_tag_table_foreach (GtkTextTagTable *table, |
| 106 |
|
|
+# GtkTextTagTableForeach func, |
| 107 |
|
|
+# gpointer data); |
| 108 |
|
|
+ |
| 109 |
|
|
+gint |
| 110 |
|
|
+gtk_text_tag_table_get_size (table) |
| 111 |
|
|
+ GtkTextTagTable * table |
| 112 |
pcg |
1.3 |
+ |
