plugins/perl/common/ConvWindow.xs

Sun, 24 Aug 2003 02:43:27 +0000

author
Christian Hammond <chipx86@chipx86.com>
date
Sun, 24 Aug 2003 02:43:27 +0000
changeset 6591
cc1ab32edcdc
child 6614
12817c60464d
permissions
-rw-r--r--

[gaim-migrate @ 7115]
Added the perl API for the conversation framework. Untested.. Should work.
We'll see.

#include "module.h"

MODULE = Gaim::ConvWindow  PACKAGE = Gaim::ConvWindow  PREFIX = gaim_window_
PROTOTYPES: ENABLE

Gaim::ConvWindow
gaim_window_new()

void
DESTROY(win)
	Gaim::ConvWindow win
CODE:
	gaim_window_destroy(win);


void
gaim_window_show(win)
	Gaim::ConvWindow win

void
gaim_window_hide(win)
	Gaim::ConvWindow win

void
gaim_window_raise(win)
	Gaim::ConvWindow win

void
gaim_window_flash(win)
	Gaim::ConvWindow flash

int
gaim_window_add_conversation(win, conv)
	Gaim::ConvWindow win
	Gaim::Conversation conv

Gaim::Conversation
gaim_window_remove_conversation(win, index)
	Gaim::ConvWindow win
	unsigned int index

void
gaim_window_move_conversation(win, index, new_index)
	Gaim::ConvWindow win
	unsigned int index
	unsigned int new_index

Gaim::Conversation
gaim_window_get_conversation_at(win, index)
	Gaim::ConvWindow win
	unsigned int index

size_t
gaim_window_get_conversation_count(win)
	Gaim::ConvWindow win

void
gaim_window_switch_conversation(win, index)
	Gaim::ConvWindow win
	unsigned int index

Gaim::Conversation
gaim_window_get_active_conversation(win)
	Gaim::ConvWindow win

void
conversations(win)
	Gaim::ConvWindow win
PREINIT:
	GList *l;
CODE:
	for (l = gaim_window_get_conversations(win); l != NULL; l = l->next)
	{
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data,
			"Gaim::Conversation")));
	}


MODULE = Gaim::ConvWindow  PACKAGE = Gaim  PREFIX = gaim_
PROTOTYPES: ENABLE

void
conv_windows()
PREINIT:
	GList *l;
CODE:
	for (l = gaim_get_windows(); l != NULL; l = l->next)
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ConvWindow")));

mercurial