pidgin/plugins/perl/common/GtkConv.xs

changeset 15711
cd8a32e0e0b5
parent 15590
c07dd12bf3f4
child 15899
75f0041f72b8
equal deleted inserted replaced
15710:fbc4a200c853 15711:cd8a32e0e0b5
35 35
36 void 36 void
37 pidgin_conv_get_gtkconv(conv) 37 pidgin_conv_get_gtkconv(conv)
38 Gaim::Conversation conv 38 Gaim::Conversation conv
39 PPCODE: 39 PPCODE:
40 if (conv != NULL && GAIM_IS_GTK_CONVERSATION(conv)) 40 if (conv != NULL && PIDGIN_IS_PIDGIN_CONVERSATION(conv))
41 XPUSHs(sv_2mortal(gaim_perl_bless_object( 41 XPUSHs(sv_2mortal(gaim_perl_bless_object(
42 PIDGIN_CONVERSATION(conv), 42 PIDGIN_CONVERSATION(conv),
43 "Pidgin::Conversation"))); 43 "Pidgin::Conversation")));
44 44
45 MODULE = Pidgin::Conversation PACKAGE = Pidgin::Conversations PREFIX = pidgin_conversations_ 45 MODULE = Pidgin::Conversation PACKAGE = Pidgin::Conversations PREFIX = pidgin_conversations_

mercurial