pidgin/plugins/perl/common/GtkStatusBox.xs

Fri, 27 Apr 2007 04:25:21 +0000

author
Etan Reisner <deryni@pidgin.im>
date
Fri, 27 Apr 2007 04:25:21 +0000
changeset 16528
6cd4a90e0970
parent 15899
75f0041f72b8
child 16551
75ed9ff2a922
child 20478
46933dc62880
permissions
-rw-r--r--

Kill the libpurpleperl hack library and move the init stuff to perl.so itself.
This works fine for me and I'm hoping will work fine on Solaris as well. When
it gets tested we'll want to drop libpurpleperl.c but until I know it works I
don't want to drop it (because of mtn's die die dir merge stuff).

#include "gtkmodule.h"

/* This can't work at the moment since I don't have a typemap for Gtk::Widget.
 * I thought about using the one from libgtk2-perl but wasn't sure how to go
 * about doing that.
Gtk::Widget
pidgin_status_box_new()

Gtk::Widget
pidgin_status_box_new_with_account(account)
	Purple::Account account

void
pidgin_status_box_add(status_box, type, pixbuf, text, sec_text, data)
	Pidgin::StatusBox status_box
	Pidgin::StatusBox::ItemType type
	GdkPixbuf pixbuf
	const char * text
	const char * sec_text
	gpointer data
*/

MODULE = Pidgin::StatusBox  PACKAGE = Pidgin::StatusBox  PREFIX = pidgin_status_box_
PROTOTYPES: ENABLE

void
pidgin_status_box_add_separator(status_box)
	Pidgin::StatusBox status_box

void
pidgin_status_box_set_connecting(status_box, connecting)
	Pidgin::StatusBox status_box
	gboolean connecting

void
pidgin_status_box_pulse_connecting(status_box)
	Pidgin::StatusBox status_box

void
pidgin_status_box_set_buddy_icon(status_box, filename)
	Pidgin::StatusBox status_box
	const char * filename

const char *
pidgin_status_box_get_buddy_icon(status_box)
	Pidgin::StatusBox status_box

gchar_own *
pidgin_status_box_get_message(status_box)
	Pidgin::StatusBox status_box

mercurial