comparison: gtk/plugins/perl/common/GtkIMHtml.xs
gtk/plugins/perl/common/GtkIMHtml.xs
- changeset 14632
- 1065e298234d
- parent 14629
- 1a0cd727c121
- child 15165
- 0ff631dfbbca
equal
deleted
inserted
replaced
| 14631:6d58706a3eaa | 14632:1065e298234d |
|---|---|
| 305 | 305 |
| 306 char * | 306 char * |
| 307 gtk_imhtml_get_markup(imhtml) | 307 gtk_imhtml_get_markup(imhtml) |
| 308 Gaim::GtkUI::IMHtml imhtml | 308 Gaim::GtkUI::IMHtml imhtml |
| 309 | 309 |
| 310 # ETAN Test this, and document well that it returns an arrayref | 310 # /* ETAN Test this, and document well that it returns an arrayref */ |
| 311 void | 311 void |
| 312 gtk_imhtml_get_markup_lines(imhtml) | 312 gtk_imhtml_get_markup_lines(imhtml) |
| 313 Gaim::GtkUI::IMHtml imhtml | 313 Gaim::GtkUI::IMHtml imhtml |
| 314 PREINIT: | 314 PREINIT: |
| 315 gint i; | 315 gint i; |
| 316 AV *lines; | 316 AV *lines; |
| 317 gchar **bufs; | 317 gchar **bufs; |
| 318 PPCODE: | 318 PPCODE: |
| 319 bufs = gtk_imhtml_get_markup_lines(imhtml); | 319 bufs = gtk_imhtml_get_markup_lines(imhtml); |
| 320 lines = newAV(); | 320 lines = newAV(); |
| 321 for (i = 0; bufs[i]; i++) { | 321 for (i = 0; bufs[i] != NULL; i++) { |
| 322 av_push(lines, newSVpv(bufs[i], 0)); | 322 av_push(lines, newSVpv(bufs[i], 0)); |
| 323 } | 323 } |
| 324 XPUSHs(sv_2mortal(newRV_noinc((SV *)lines))); | 324 XPUSHs(sv_2mortal(newRV_noinc((SV *)lines))); |
| 325 | 325 |
| 326 MODULE = Gaim::GtkUI::IMHtml PACKAGE = Gaim::GtkUI::IMHtml::Scalable PREFIX = gtk_imhtml_image_ | 326 MODULE = Gaim::GtkUI::IMHtml PACKAGE = Gaim::GtkUI::IMHtml::Scalable PREFIX = gtk_imhtml_image_ |
