/*
 * Copyright (c) 2005 by Torsten Schoenfeld (see the file AUTHORS)
 * Copyright (c) 2005 by Emmanuele Bassi (see the file AUTHORS)
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the 
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
 * Boston, MA  02111-1307  USA.
 */

#include "gtksourceviewperl.h"

MODULE = Gtk2::SourceView::TagStyle	PACKAGE = Gtk2::SourceView::TagStyle	PREFIX = gtk_source_tag_style_

# GtkSourceTagStyle *gtk_source_tag_style_new (void);
GtkSourceTagStyle_own *
gtk_source_tag_style_new (class)
    C_ARGS:
	/* void */

SV *
is_default (t, newval=NULL)
	GtkSourceTagStyle * t
	SV * newval
    ALIAS:
	Gtk2::SourceView::TagStyle::mask          = 1
	Gtk2::SourceView::TagStyle::foreground    = 2
	Gtk2::SourceView::TagStyle::background    = 3
	Gtk2::SourceView::TagStyle::italic        = 4
	Gtk2::SourceView::TagStyle::bold          = 5
	Gtk2::SourceView::TagStyle::underline     = 6
	Gtk2::SourceView::TagStyle::strikethrough = 7
    CODE:
	switch (ix) {
		case 0:	RETVAL = newSViv (t->is_default); break;
		case 1:
			if (newval)
				t->mask = SvGtkSourceTagStyleMask (newval);
			RETVAL = newSVGtkSourceTagStyleMask (t->mask);
			break;
		case 2:
			if (newval)
				t->foreground = *((GdkColor*) SvGdkColor (newval));
			RETVAL = newSVGdkColor (&(t->foreground));
			break;
		case 3:
			if (newval)
				t->background = *((GdkColor*) SvGdkColor (newval));
			RETVAL = newSVGdkColor (&(t->background));
			break;
		case 4:
			if (newval)
				t->italic = SvIV (newval);
			RETVAL = newSViv (t->italic);
			break;
		case 5:
			if (newval)
				t->bold = SvIV (newval);
			RETVAL = newSViv (t->bold);
			break;
		case 6:
			if (newval)
				t->underline = SvIV (newval);
			RETVAL = newSViv (t->underline);
			break;
		case 7:
			if (newval)
				t->strikethrough = SvIV (newval);
			RETVAL = newSViv (t->strikethrough);
			break;
		default:
			RETVAL = NULL;
			g_assert_not_reached ();
	}
    OUTPUT:
	RETVAL