view gtk/plugins/perl/common/GtkStatusBox.xs @ 14416:eeca8be382a5

[gaim-migrate @ 17124] This is a Gaim::Gtk perl module for use by gaim plugins to get access to the gtkgaim interface functions. It isn't complete because anything dealing with Gtk widgets themselves doesn't work yet (I need to figure out the best way to do that). To use this a perl plugin just needs to include 'use Gaim::Gtk;' either on top of 'use Gaim;' or instead of it. I'm not done with this yet. At the moment you have to 'use Gaim;' or 'use Gaim::Gtk;' which loads all the parts, I'm planning to let you actually say 'use Gaim::Gtk::Debug;' to just get the gtkdebug.h functions. Though 'use Gaim' would work the same way as always. committer: Tailor Script <[e-mail]>

#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
gtk_gaim_status_box_new()

Gtk::Widget
gtk_gaim_status_box_new_with_account(account)
	Gaim::Account account

void
gtk_gaim_status_box_add(status_box, type, pixbuf, text, sec_text, data)
	Gaim::Gtk::StatusBox status_box
	Gaim::Gtk::StatusBox::ItemType type
	GdkPixbuf pixbuf
	const char * text
	const char * sec_text
	gpointer data
*/

MODULE = Gaim::Gtk::StatusBox  PACKAGE = Gaim::Gtk::StatusBox  PREFIX = gtk_gaim_status_box
PROTOTYPES: ENABLE

void
gtk_gaim_status_box_add_separator(status_box)
	Gaim::Gtk::StatusBox status_box

void
gtk_gaim_status_box_set_connecting(status_box, connecting)
	Gaim::Gtk::StatusBox status_box
	gboolean connecting

void
gtk_gaim_status_box_pulse_connecting(status_box)
	Gaim::Gtk::StatusBox status_box

void
gtk_gaim_status_box_set_buddy_icon(status_box, filename)
	Gaim::Gtk::StatusBox status_box
	const char * filename

const char *
gtk_gaim_status_box_get_buddy_icon(status_box)
	Gaim::Gtk::StatusBox status_box

char *
gtk_gaim_status_box_get_message(status_box)
	Gaim::Gtk::StatusBox status_box