#define __SP_FONT_SELECTOR_C__

/*
 * Font selection widgets
 *
 * Authors:
 *   Chris Lahey <clahey@ximian.com>
 *   Lauris Kaplinski <lauris@kaplinski.com>
 *   bulia byak <buliabyak@users.sf.net> 
 *   Johan Engelen <j.b.c.engelen@ewi.utwente.nl>
 *
 * Copyright (C) 1999-2001 Ximian, Inc.
 * Copyright (C) 2002 Lauris Kaplinski
 * Copyright (C) -2007 Authors
 *
 * Released under GNU GPL, read the file 'COPYING' for more information
 */

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#include <libnr/nr-blit.h>
#include <libnrtype/font-instance.h>
#include <libnrtype/raster-glyph.h>
#include <libnrtype/RasterFont.h>
#include <libnrtype/TextWrapper.h>
#include <libnrtype/one-glyph.h>
#include <libnrtype/font-lister.h>

#include <gtk/gtk.h>
#include <gtk/gtkframe.h>
#include <gtk/gtkscrolledwindow.h>
#include <gtk/gtkclist.h>
#include <gtk/gtkvbox.h>
#include <gtk/gtkcombo.h>
#include <gtk/gtkentry.h>
#include <gtk/gtkdrawingarea.h>

#include "../display/nr-plain-stuff-gdk.h"
#include <glibmm/i18n.h>

#include "../desktop.h"
#include "font-selector.h"

/* SPFontSelector */

struct SPFontSelector
{
    GtkHBox hbox;
    
    unsigned int block_emit : 1;
    
    GtkWidget *family;
    GtkWidget *style;
    GtkWidget *size;

    GtkWidget *family_treeview;
    GtkWidget *style_treeview;
    
    NRNameList families;
    NRStyleList styles;
    int familyidx;
    int styleidx;
    gfloat fontsize;
    bool fontsize_dirty;
    font_instance *font;
};


struct SPFontSelectorClass
{
    GtkHBoxClass parent_class;
	
    void (* font_set) (SPFontSelector *fsel, font_instance *font);
};

enum {
    FONT_SET,
    LAST_SIGNAL
};

static void sp_font_selector_class_init         (SPFontSelectorClass    *c);
static void sp_font_selector_init               (SPFontSelector         *fsel);
static void sp_font_selector_destroy            (GtkObject              *object);

static void sp_font_selector_family_select_row  (GtkTreeSelection       *selection,
                                                 SPFontSelector         *fsel);

static void sp_font_selector_style_select_row   (GtkTreeSelection       *selection,
                                                 SPFontSelector         *fsel);
 
static void sp_font_selector_size_changed       (GtkComboBox            *combobox,
                                                 SPFontSelector         *fsel);

static void sp_font_selector_emit_set           (SPFontSelector         *fsel);

namespace {
    const char *sizes[] = {
	"4", "6", "8", "9", "10", "11", "12", "13", "14",
	"16", "18", "20", "22", "24", "28",
	"32", "36", "40", "48", "56", "64", "72", "144",
	NULL
    };
}

static GtkHBoxClass *fs_parent_class = NULL;
static guint fs_signals[LAST_SIGNAL] = { 0 };

GtkType sp_font_selector_get_type()
{
    static GtkType type = 0;
    if (!type) {
        static const GtkTypeInfo info = {
            "SPFontSelector",
            sizeof(SPFontSelector),
            sizeof(SPFontSelectorClass),
            (GtkClassInitFunc) sp_font_selector_class_init,
            (GtkObjectInitFunc) sp_font_selector_init,
            NULL, NULL, NULL
        };
        type = gtk_type_unique(GTK_TYPE_HBOX, &info);
    }
    return type;
}

static void sp_font_selector_class_init(SPFontSelectorClass *c)
{
    GtkObjectClass *object_class = (GtkObjectClass *) c;
  
    fs_parent_class = (GtkHBoxClass* )gtk_type_class(GTK_TYPE_HBOX);
	
    fs_signals[FONT_SET] = gtk_signal_new ("font_set",
                                           GTK_RUN_FIRST,
                                           GTK_CLASS_TYPE(object_class),
                                           GTK_SIGNAL_OFFSET(SPFontSelectorClass, font_set),
                                           gtk_marshal_NONE__POINTER,
                                           GTK_TYPE_NONE,
                                           1, GTK_TYPE_POINTER);
	
	object_class->destroy = sp_font_selector_destroy;
}

static void sp_font_selector_init(SPFontSelector *fsel)
{
	gtk_box_set_homogeneous(GTK_BOX(fsel), TRUE);
	gtk_box_set_spacing(GTK_BOX(fsel), 4);
	
	/* Family frame */
	GtkWidget *f = gtk_frame_new(_("Font family"));
	gtk_widget_show (f);
	gtk_box_pack_start (GTK_BOX(fsel), f, TRUE, TRUE, 0);
	
	GtkWidget *sw = gtk_scrolled_window_new(NULL, NULL);
	gtk_widget_show(sw);
	gtk_container_set_border_width(GTK_CONTAINER (sw), 4);
	gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(sw), GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
        gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (sw), GTK_SHADOW_IN);
	gtk_container_add(GTK_CONTAINER(f), sw);

        Inkscape::FontLister* fontlister = Inkscape::FontLister::get_instance();

        fsel->family_treeview = gtk_tree_view_new ();
        GtkTreeViewColumn *column = gtk_tree_view_column_new ();
        GtkCellRenderer *cell = gtk_cell_renderer_text_new ();
        gtk_tree_view_column_pack_start (column, cell, FALSE);
        gtk_tree_view_column_set_attributes (column, cell, "text", 0, NULL);
        gtk_tree_view_append_column (GTK_TREE_VIEW(fsel->family_treeview), column);
        gtk_tree_view_set_headers_visible (GTK_TREE_VIEW(fsel->family_treeview), FALSE);
        Glib::RefPtr<Gtk::ListStore> store = fontlister->get_font_list();
        gtk_tree_view_set_model (GTK_TREE_VIEW(fsel->family_treeview), GTK_TREE_MODEL (Glib::unwrap (store)));
	gtk_container_add(GTK_CONTAINER(sw), fsel->family_treeview);
        gtk_widget_show_all (sw);

        GtkTreeSelection *selection = gtk_tree_view_get_selection (GTK_TREE_VIEW(fsel->family_treeview));
        g_signal_connect (G_OBJECT(selection), "changed", G_CALLBACK (sp_font_selector_family_select_row), fsel);
        g_object_set_data (G_OBJECT(fsel), "family-treeview", fsel->family_treeview);
        
	
	/* Style frame */
	f = gtk_frame_new(_("Style"));
	gtk_widget_show(f);
	gtk_box_pack_start(GTK_BOX (fsel), f, TRUE, TRUE, 0);
	
	GtkWidget *vb = gtk_vbox_new(FALSE, 4);
	gtk_widget_show(vb);
	gtk_container_set_border_width(GTK_CONTAINER (vb), 4);
	gtk_container_add(GTK_CONTAINER(f), vb);
	
	sw = gtk_scrolled_window_new(NULL, NULL);
	gtk_widget_show(sw);
	gtk_container_set_border_width(GTK_CONTAINER (sw), 4);
	gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW (sw), GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
        gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (sw), GTK_SHADOW_IN);
	gtk_box_pack_start(GTK_BOX (vb), sw, TRUE, TRUE, 0);

        fsel->style_treeview = gtk_tree_view_new ();
        column = gtk_tree_view_column_new ();
        cell = gtk_cell_renderer_text_new ();
        gtk_tree_view_column_pack_start (column, cell, FALSE);
        gtk_tree_view_column_set_attributes (column, cell, "text", 0, NULL);
        gtk_tree_view_append_column (GTK_TREE_VIEW(fsel->style_treeview), column);
        gtk_tree_view_set_headers_visible (GTK_TREE_VIEW(fsel->style_treeview), FALSE);
	gtk_container_add(GTK_CONTAINER(sw), fsel->style_treeview);
        gtk_widget_show_all (sw);

        selection = gtk_tree_view_get_selection (GTK_TREE_VIEW(fsel->style_treeview));
        g_signal_connect (G_OBJECT(selection), "changed", G_CALLBACK (sp_font_selector_style_select_row), fsel);

	GtkWidget *hb = gtk_hbox_new(FALSE, 4);
	gtk_widget_show(hb);
	gtk_box_pack_start(GTK_BOX(vb), hb, FALSE, FALSE, 0);
	
	fsel->size = gtk_combo_box_entry_new_text ();
	gtk_widget_set_size_request(fsel->size, 90, -1);
	g_signal_connect (G_OBJECT(fsel->size), "changed", G_CALLBACK (sp_font_selector_size_changed), fsel);
	gtk_box_pack_end (GTK_BOX(hb), fsel->size, FALSE, FALSE, 0);
	
	GtkWidget *l = gtk_label_new(_("Font size:"));
	gtk_widget_show_all (l);
	gtk_box_pack_end(GTK_BOX (hb), l, FALSE, FALSE, 0);
	
        for (unsigned int n = 0; sizes[n]; ++n)
            {
                gtk_combo_box_append_text (GTK_COMBO_BOX(fsel->size), sizes[n]);
            }

	gtk_widget_show_all (fsel->size);
	
	fsel->familyidx = 0;
	fsel->styleidx = 0;
	fsel->fontsize = 10.0;
	fsel->fontsize_dirty = false;
	fsel->font = NULL;
}

static void sp_font_selector_destroy(GtkObject *object)
{
    SPFontSelector *fsel = SP_FONT_SELECTOR (object);
    
    if (fsel->font) {
        fsel->font->Unref();
        fsel->font = NULL;
    }
    
    if (fsel->families.length > 0) {
        nr_name_list_release(&fsel->families);
        fsel->families.length = 0;
    }
    
    if (fsel->styles.length > 0) {
        nr_style_list_release(&fsel->styles);
        fsel->styles.length = 0;
    }
    
    if (GTK_OBJECT_CLASS(fs_parent_class)->destroy) {
        GTK_OBJECT_CLASS(fs_parent_class)->destroy(object);
    }
}

static void sp_font_selector_family_select_row(GtkTreeSelection *selection,
                                               SPFontSelector *fsel)
{
    GtkTreeIter   iter;
    GtkTreeModel *model;
    GtkListStore *store;
    GtkTreePath  *path;
    GList        *list=0;

    if (!gtk_tree_selection_get_selected (selection, &model, &iter)) return;

    path = gtk_tree_model_get_path (model, &iter);
    gtk_tree_model_get (model, &iter, 1, &list, -1);
    fsel->familyidx = gtk_tree_path_get_indices (path)[0];
    fsel->styleidx = 0;

    store = gtk_list_store_new (1, G_TYPE_STRING);

    for ( ; list ; list = list->next ) 
    {
        gtk_list_store_append (store, &iter);
        gtk_list_store_set (store, &iter, 0, (char*)list->data, -1);
    }

    gtk_tree_view_set_model (GTK_TREE_VIEW (fsel->style_treeview), GTK_TREE_MODEL (store));
    path = gtk_tree_path_new ();
    gtk_tree_path_append_index (path, 0);
    gtk_tree_selection_select_path (gtk_tree_view_get_selection (GTK_TREE_VIEW (fsel->style_treeview)), path);
    gtk_tree_path_free (path);
}

static void sp_font_selector_style_select_row (GtkTreeSelection *selection,
                                               SPFontSelector   *fsel)
{
    GtkTreeModel *model; 
    GtkTreePath  *path;
    GtkTreeIter   iter;

    if (!gtk_tree_selection_get_selected (selection, &model, &iter)) return;

    path = gtk_tree_model_get_path (model, &iter);
    fsel->styleidx = gtk_tree_path_get_indices (path)[0];

    if (!fsel->block_emit)
    {
        sp_font_selector_emit_set (fsel);
    }
}

static void sp_font_selector_size_changed (GtkComboBox *cbox, SPFontSelector *fsel)
{
#if GTK_CHECK_VERSION(2,6,0)
    char *sstr = gtk_combo_box_get_active_text (GTK_COMBO_BOX (fsel->size));
#else // GTK_CHECK_VERSION(2,6,0)
    GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (fsel->size));
    GtkTreeIter iter;
    char *sstr = NULL;

    if (gtk_combo_box_get_active_iter (GTK_COMBO_BOX (fsel->size), &iter) && model)
        gtk_tree_model_get (model, &iter, 0, &sstr, -1);
#endif // GTK_CHECK_VERSION(2,6,0)
    gfloat old_size = fsel->fontsize;
    fsel->fontsize = MAX(atof(sstr), 0.1);
    if ( fabs(fsel->fontsize-old_size) > 0.001)
    {
        fsel->fontsize_dirty = true;
    }
	
    sp_font_selector_emit_set (fsel);

    free (sstr);
}

static void sp_font_selector_emit_set (SPFontSelector *fsel)
{
    font_instance *font;
   
    GtkTreeSelection *selection_family;
    GtkTreeSelection *selection_style;
    GtkTreeModel     *model_family;
    GtkTreeModel     *model_style;
    GtkTreeIter       iter_family;
    GtkTreeIter       iter_style;
    char             *family=0, *style=0;

    //We need to check this here since most GtkTreeModel operations are not atomic
    //See GtkListStore documenation, Chapter "Atomic Operations" --mderezynski

    model_family = gtk_tree_view_get_model (GTK_TREE_VIEW (fsel->family_treeview));
    if (!model_family) return;
    model_style = gtk_tree_view_get_model (GTK_TREE_VIEW (fsel->style_treeview));
    if (!model_style) return;

    selection_family = gtk_tree_view_get_selection (GTK_TREE_VIEW (fsel->family_treeview));
    selection_style = gtk_tree_view_get_selection (GTK_TREE_VIEW (fsel->style_treeview));

    if (!gtk_tree_selection_get_selected (selection_family, NULL, &iter_family)) return;
    if (!gtk_tree_selection_get_selected (selection_style, NULL, &iter_style)) return;

    gtk_tree_model_get (model_family, &iter_family, 0, &family, -1);
    gtk_tree_model_get (model_style, &iter_style, 0, &style, -1);

    if ((!family) || (!style)) return;

    font = (font_factory::Default())->FaceFromDescr (family, style);
    
    // FIXME: when a text object uses non-available font, font==NULL and we can't set size
    // (and the size shown in the widget is invalid). To fix, here we must always get some
    // default font, exactly the same as sptext uses for on-canvas display, so that
    // font!=NULL ever.
    if (font != fsel->font || ( font && fsel->fontsize_dirty ) ) {
        if ( font ) {
            font->Ref();
        }
        if ( fsel->font ) {
            fsel->font->Unref();
        }
        fsel->font = font;
        gtk_signal_emit(GTK_OBJECT(fsel), fs_signals[FONT_SET], fsel->font);
    }
    fsel->fontsize_dirty = false;
    if (font) {
        font->Unref();
    }
    font = NULL;
}

GtkWidget *sp_font_selector_new()
{
    SPFontSelector *fsel = (SPFontSelector*) gtk_type_new(SP_TYPE_FONT_SELECTOR);
  
    return (GtkWidget *) fsel;
}

void sp_font_selector_set_font (SPFontSelector *fsel, font_instance *font, double size)
{
    if (font)
    {
            gchar family[256];
            font->Family (family, 256);
            
            Gtk::TreePath path;

            try {
                path = Inkscape::FontLister::get_instance()->get_row_for_font (family);
            } catch (...) {
                return;
            }

            fsel->block_emit = TRUE;
            gtk_tree_selection_select_path (gtk_tree_view_get_selection (GTK_TREE_VIEW (fsel->family_treeview)), path.gobj());
            gtk_tree_view_scroll_to_cell (GTK_TREE_VIEW (fsel->family_treeview), path.gobj(), NULL, TRUE, 0.5, 0.5);
            fsel->block_emit = FALSE;

            GList *list = 0;
            GtkTreeIter iter;
            GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW(fsel->family_treeview));
            gtk_tree_model_get_iter (model, &iter, path.gobj());
            gtk_tree_model_get (model, &iter, 1, &list, -1);

            gchar descr[256];
            font->Name(descr, 256);
            std::string descr_best (family);
            descr_best += " ";
            descr_best += ((char*)list->data);

            PangoFontDescription *descr_ = pango_font_description_from_string(descr);
            PangoFontDescription *best_ = pango_font_description_from_string(descr_best.c_str());

            unsigned int i = 0;
            unsigned int best_i = 0;
            
            // try to find best match with style description (i.e. bold, italic ?)                         
            for (list = list->next ; list ; list = list->next)
            {
                i++;
                std::string descr_try (family);
                descr_try += " ";
                descr_try += ((char*)list->data);
                PangoFontDescription *try_ = pango_font_description_from_string(descr_try.c_str());
                if (pango_font_description_better_match (descr_, best_, try_))
                {
                    pango_font_description_free (best_);
                    best_ = pango_font_description_from_string (descr_try.c_str ());
                    best_i = i;
                }
                pango_font_description_free(try_);
            }
            pango_font_description_free(descr_);
            pango_font_description_free(best_);

            GtkTreePath *path_c = gtk_tree_path_new ();
            gtk_tree_path_append_index (path_c, best_i);
            gtk_tree_selection_select_path (gtk_tree_view_get_selection (GTK_TREE_VIEW (fsel->style_treeview)), path_c);
            gtk_tree_view_scroll_to_cell (GTK_TREE_VIEW (fsel->style_treeview), path_c, NULL, TRUE, 0.5, 0.5);
        
            if (size != fsel->fontsize)
            {
                gchar s[8];
                g_snprintf (s, 8, "%.5g", size); // UI, so printf is ok
                gtk_entry_set_text (GTK_ENTRY (GTK_BIN(fsel->size)->child), s);
                fsel->fontsize = size;
            }
    }
}

font_instance* sp_font_selector_get_font(SPFontSelector *fsel)
{
    if (fsel->font) {
        fsel->font->Ref();
    }
    
    return fsel->font;
}

double sp_font_selector_get_size(SPFontSelector *fsel)
{
    return fsel->fontsize;
}

/* SPFontPreview */

struct SPFontPreview
{
    GtkDrawingArea darea;
    
    font_instance *font;
    raster_font *rfont;
    gchar *phrase;
    unsigned long rgba;
};

struct SPFontPreviewClass
{
    GtkDrawingAreaClass parent_class;
};

static void sp_font_preview_class_init(SPFontPreviewClass *c);
static void sp_font_preview_init(SPFontPreview *fsel);
static void sp_font_preview_destroy(GtkObject *object);

void sp_font_preview_size_request(GtkWidget *widget, GtkRequisition *req);
static gint sp_font_preview_expose(GtkWidget *widget, GdkEventExpose *event);

static GtkDrawingAreaClass *fp_parent_class = NULL;

GtkType sp_font_preview_get_type()
{
    static GtkType type = 0;
    if (!type) {
        static const GtkTypeInfo info = {
            "SPFontPreview",
            sizeof (SPFontPreview),
            sizeof (SPFontPreviewClass),
            (GtkClassInitFunc) sp_font_preview_class_init,
            (GtkObjectInitFunc) sp_font_preview_init,
            NULL, NULL, NULL
        };
        type = gtk_type_unique (GTK_TYPE_DRAWING_AREA, &info);
    }
    return type;
}

static void sp_font_preview_class_init (SPFontPreviewClass *c)
{
    GtkObjectClass *object_class = (GtkObjectClass *) c;
    GtkWidgetClass *widget_class = (GtkWidgetClass *) c;
    
    fp_parent_class = (GtkDrawingAreaClass*) gtk_type_class(GTK_TYPE_DRAWING_AREA);
    
    object_class->destroy = sp_font_preview_destroy;
	
    widget_class->size_request = sp_font_preview_size_request;
    widget_class->expose_event = sp_font_preview_expose;
}

static void sp_font_preview_init(SPFontPreview *fprev)
{
    fprev->rgba = 0x000000ff;
}

static void sp_font_preview_destroy(GtkObject *object)
{
    SPFontPreview *fprev = SP_FONT_PREVIEW (object);
	
    if (fprev->rfont) {
        fprev->rfont->Unref();
        fprev->rfont = NULL;
    }
	
    if (fprev->font) {
        fprev->font->Unref();
        fprev->font = NULL;
    }
	
    g_free(fprev->phrase);
    fprev->phrase = NULL;
	
    if (GTK_OBJECT_CLASS (fp_parent_class)->destroy) {
        GTK_OBJECT_CLASS (fp_parent_class)->destroy(object);
    }
}

void sp_font_preview_size_request(GtkWidget *widget, GtkRequisition *req)
{
    req->width = 256;
    req->height = 32;
}

#define SPFP_MAX_LEN 64

static gint sp_font_preview_expose(GtkWidget *widget, GdkEventExpose *event)
{
    SPFontPreview *fprev = SP_FONT_PREVIEW(widget);
	
    if (GTK_WIDGET_DRAWABLE (widget)) {
        if (fprev->rfont) {
            
            int glyphs[SPFP_MAX_LEN];
            double hpos[SPFP_MAX_LEN];
            
            font_instance *tface = fprev->rfont->daddy;
            
            double theSize = NR_MATRIX_DF_EXPANSION (&fprev->rfont->style.transform);
            
            gchar const *p;
            if (fprev->phrase) {
                p = fprev->phrase;
            } else {
                /* TRANSLATORS: Test string used in text and font dialog (when no
                 * text has been entered) to get a preview of the font.  Choose
                 * some representative characters that users of your locale will be
                 * interested in. */
		p = _("AaBbCcIiPpQq12369$\342\202\254\302\242?.;/()");
            }
            int len = 0;
            
            NRRect bbox;
            bbox.x0 = bbox.y0 = bbox.x1 = bbox.y1 = 0.0;
            
            text_wrapper* str_text=new text_wrapper;
            str_text->SetDefaultFont(tface);
            str_text->AppendUTF8(p,-1);
            if ( str_text->uni32_length > 0 ) {
                str_text->DoLayout();
                if ( str_text->glyph_length > 0 ) {
                    PangoFont *curPF = NULL;
                    font_instance *curF = NULL;
                    for (int i = 0; i < str_text->glyph_length && i < SPFP_MAX_LEN; i++) {
                        if ( str_text->glyph_text[i].font != curPF ) {
                            curPF = str_text->glyph_text[i].font;
                            if (curF) {
                                curF->Unref();
                            }
                            curF = NULL;
                            if ( curPF ) {
                                PangoFontDescription* pfd = pango_font_describe(curPF);
                                curF = (font_factory::Default())->Face(pfd);
                                pango_font_description_free(pfd);
                            }
                        }
                        NR::Point base_pt(str_text->glyph_text[i].x, str_text->glyph_text[i].y);
                        base_pt *= theSize;
						
                        glyphs[len] = str_text->glyph_text[i].gl;
                        hpos[len] = base_pt[0];
                        len++;
                        if ( curF ) {
                            NR::Maybe<NR::Rect> nbbox = curF->BBox(str_text->glyph_text[i].gl);
                            if (nbbox) {
                                bbox.x0 = MIN(bbox.x0, base_pt[NR::X] + theSize * (nbbox->min())[0]);
                                bbox.y0 = MIN(bbox.y0, base_pt[NR::Y] - theSize * (nbbox->max())[1]);
                                bbox.x1 = MAX(bbox.x1, base_pt[NR::X] + theSize * (nbbox->max())[0]);
                                bbox.y1 = MAX(bbox.y1, base_pt[NR::Y] - theSize * (nbbox->min())[1]);
                            }
                        }
                    }
                    if ( curF ) {
                        curF->Unref();
                    }
                }
            }
            
            // XXX: FIXME: why does this code ignore adv.y
            /*			while (p && *p && (len < SPFP_MAX_LEN)) {
				unsigned int unival;
                                NRRect gbox;
                                unival = g_utf8_get_char (p);
                                glyphs[len] =  tface->MapUnicodeChar( unival);
                                hpos[len] = (int)px;
                                NR::Point adv = fprev->rfont->Advance(glyphs[len]);
                                fprev->rfont->BBox( glyphs[len], &gbox);
                                bbox.x0 = MIN (px + gbox.x0, bbox.x0);
                                bbox.y0 = MIN (py + gbox.y0, bbox.y0);
                                bbox.x1 = MAX (px + gbox.x1, bbox.x1);
                                bbox.y1 = MAX (py + gbox.y1, bbox.y1);
                                px += adv[NR::X];
                                len += 1;
                                p = g_utf8_next_char (p);
                                }*/
            
            float startx = (widget->allocation.width - (bbox.x1 - bbox.x0)) / 2;
            float starty = widget->allocation.height - (widget->allocation.height - (bbox.y1 - bbox.y0)) / 2 - bbox.y1;
			
            for (int y = event->area.y; y < event->area.y + event->area.height; y += 64) {
                for (int x = event->area.x; x < event->area.x + event->area.width; x += 64) {
                    NRPixBlock pb, m;
                    int x0 = x;
                    int y0 = y;
                    int x1 = MIN(x0 + 64, event->area.x + event->area.width);
                    int y1 = MIN(y0 + 64, event->area.y + event->area.height);
                    guchar *ps = nr_pixelstore_16K_new (TRUE, 0xff);
                    nr_pixblock_setup_extern(&pb, NR_PIXBLOCK_MODE_R8G8B8, x0, y0, x1, y1, ps, 3 * (x1 - x0), FALSE, FALSE);
                    nr_pixblock_setup_fast(&m, NR_PIXBLOCK_MODE_A8, x0, y0, x1, y1, TRUE);
                    pb.empty = FALSE;
                    
                    PangoFont *curPF = NULL;
                    font_instance *curF = NULL;
                    raster_font *curRF = NULL;
                    for (int i=0; i < len; i++) {
                        if ( str_text->glyph_text[i].font != curPF ) {
                            curPF=str_text->glyph_text[i].font;
                            if ( curF ) {
                                curF->Unref();
                            }
                            curF = NULL;
                            if ( curPF ) {
                                PangoFontDescription* pfd = pango_font_describe(curPF);
                                curF=(font_factory::Default())->Face(pfd);
                                pango_font_description_free(pfd);
                            }
                            if ( curF ) {
                                if ( curRF ) {
                                    curRF->Unref();
                                }
                                curRF = NULL;
                                curRF = curF->RasterFont(fprev->rfont->style);
                            }
                        }
                        raster_glyph *g = (curRF) ? curRF->GetGlyph(glyphs[i]) : NULL;
                        if ( g ) {
                            g->Blit(NR::Point(hpos[i] + startx, starty), m);
                        }
                    }
                    if (curRF) {
                        curRF->Unref();
                    }
                    if (curF) {
                        curF->Unref();
                    }
                    
                    nr_blit_pixblock_mask_rgba32(&pb, &m, fprev->rgba);
                    gdk_draw_rgb_image(widget->window, widget->style->black_gc,
                                       x0, y0, x1 - x0, y1 - y0,
                                       GDK_RGB_DITHER_NONE, NR_PIXBLOCK_PX (&pb), pb.rs);
                    nr_pixblock_release(&m);
                    nr_pixblock_release(&pb);
                    nr_pixelstore_16K_free(ps);
                }
            }
            
            delete str_text;
            
        } else {
            nr_gdk_draw_gray_garbage(widget->window, widget->style->black_gc,
                                     event->area.x, event->area.y,
                                     event->area.width, event->area.height);
        }
    }
    
    return TRUE;
}

GtkWidget * sp_font_preview_new()
{
    GtkWidget *w = (GtkWidget*) gtk_type_new(SP_TYPE_FONT_PREVIEW);
    
    return w;
}

void sp_font_preview_set_font(SPFontPreview *fprev, font_instance *font, SPFontSelector *fsel)
{
        if (font)
        {
            font->Ref();
        }

        if (fprev->font)
        {
            fprev->font->Unref();
        }

        fprev->font = font;
	
        if (fprev->rfont)
        {
            fprev->rfont->Unref();
            fprev->rfont=NULL;
        }

        if (fprev->font)
        {
            NRMatrix flip;
            nr_matrix_set_scale (&flip, fsel->fontsize, -fsel->fontsize);
            fprev->rfont = fprev->font->RasterFont(flip, 0);
        }

        if (GTK_WIDGET_DRAWABLE (fprev)) gtk_widget_queue_draw (GTK_WIDGET (fprev));
}

void sp_font_preview_set_rgba32(SPFontPreview *fprev, guint32 rgba)
{
    fprev->rgba = rgba;
    if (GTK_WIDGET_DRAWABLE (fprev)) {
        gtk_widget_queue_draw (GTK_WIDGET (fprev));
    }
}

void sp_font_preview_set_phrase(SPFontPreview *fprev, const gchar *phrase)
{
    g_free (fprev->phrase);
    if (phrase) {
        fprev->phrase = g_strdup (phrase);
    } else {
        fprev->phrase = NULL;
    }
    if (GTK_WIDGET_DRAWABLE(fprev)) {
        gtk_widget_queue_draw (GTK_WIDGET (fprev));
    }
}


/*
  Local Variables:
  mode:c++
  c-file-style:"stroustrup"
  c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
  indent-tabs-mode:nil
  fill-column:99
  End:
*/
// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4 :
