diff plugins/perl/common/ConvWindow.xs @ 6591:d25ae4b5a204

[gaim-migrate @ 7115] Added the perl API for the conversation framework. Untested.. Should work. We'll see. committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/perl/common/ConvWindow.xs	Sun Aug 24 02:43:27 2003 +0000
@@ -0,0 +1,88 @@
+#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")));