The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/*
 * Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
 *
 * Licensed under the LGPL, see LICENSE file for more information.
 *
 * $Id$
 */

#include "gtk2perl.h"
 
MODULE = Gtk2::ColorButton	PACKAGE = Gtk2::ColorButton	PREFIX = gtk_color_button_

## GtkWidget *gtk_color_button_new (void);
## GtkWidget *gtk_color_button_new_with_color (GdkColor *color);
GtkWidget *
gtk_color_button_new (class, GdkColor*color=NULL)
    ALIAS:
	new_with_color = 1
    CODE:
	PERL_UNUSED_VAR (ix);
	if (items == 2)
		RETVAL = gtk_color_button_new_with_color (color);
	else
		RETVAL = gtk_color_button_new ();
    OUTPUT:
	RETVAL

void gtk_color_button_set_color (GtkColorButton *color_button, GdkColor *color);

void gtk_color_button_set_alpha (GtkColorButton *color_button, guint16 alpha);

## void gtk_color_button_get_color (GtkColorButton *color_button, GdkColor *color);
GdkColor_copy *
gtk_color_button_get_color (GtkColorButton *color_button)
    PREINIT:
	GdkColor color;
    CODE:
	gtk_color_button_get_color (color_button, &color);
	RETVAL = &color;
    OUTPUT:
	RETVAL

guint16 gtk_color_button_get_alpha (GtkColorButton *color_button);

void gtk_color_button_set_use_alpha (GtkColorButton *color_button, gboolean use_alpha);

gboolean gtk_color_button_get_use_alpha (GtkColorButton *color_button);

void gtk_color_button_set_title (GtkColorButton *color_button, const gchar *title);

const gchar *gtk_color_button_get_title (GtkColorButton *color_button);