view gtk/plugins/perl/common/GtkPrefs.xs @ 14447:e88aae4f4c40

[gaim-migrate @ 17161] Make the Perl GTK+ stuff work in wingaim. 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
gaim_gtk_prefs_checkbox(title, key, page)
	const char * title
	const char * key
	Gtk::Widget page

Gtk::Widget
gaim_gtk_prefs_labeled_spin_button(page, title, key, min, max, sg)
	Gtk::Widget page
	const gchar * title
	const char * key
	int min
	int max
	Gtk::Size::Group sg

Gtk::Widget
gaim_gtk_prefs_labeled_entry(page, title, key, sg)
	Gtk::Widget page
	const gchar * title
	const char * key
	Gtk::Size::Group sg

TODO Test this carefully, I'm not at all confident in the loop.
Gtk::Widget
gaim_gtk_prefs_dropdown(page, title, type, key, ...)
	Gtk::Widget page
	const gchar * title
	Gaim::Pref::Type type
	const char * key
PREINIT:
	GList *t_GL;
	int i;
CODE:
	t_GL = NULL;
	for (i = 0; i < items; i++) {
		if (type == GAIM_PREF_INT || type == GAIM_PREF_BOOLEAN) {
			t_GL = g_list_append(t_GL, SvIV(ST(i+1)));
		else {
			t_GL = g_list_append(t_GL, SvPV(ST(i+1)));
		}
	}

Gtk::Widget
gaim_gtk_prefs_dropdown_from_list(page, title, type, key, menuitems)
	Gtk::Widget page
	const gchar * title
	Gaim::Pref::Type type
	const char * key
	SV *menuitems
PREINIT:
	GList *t_GL;
	int i, t_len;
CODE:
	t_GL = NULL;
	t_len = av_len((AV *)SvRV(menuitems));

	for ( i = 0; i < t_len; i++) {
		STRLEN t_sl;
		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(menuitems), i, 0), t_sl));
	RETVAL = gaim_gtk_prefs_dropdown_from_list(page, title, type, key, t_GL);
OUTPUT:
	RETVAL
*/

MODULE = Gaim::Gtk::Prefs  PACKAGE = Gaim::Gtk::Prefs  PREFIX = gaim_gtk_prefs_
PROTOTYPES: ENABLE

void
gaim_gtk_prefs_show()