/* Pango
 * viewer.c: Example program to view a UTF-8 encoding file
 *           using Pango to render result.
 *
 * Copyright (C) 1999 Red Hat Software
 *
 * 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 <gtk/gtk.h>
#include <gdk/gdkx.h>

#include "pango.h"
#include "pangox.h"

#include <unicode.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include "utils.h"

#define BUFSIZE 1024

typedef struct _Paragraph Paragraph;
typedef struct _Line Line;

/* Structure representing a paragraph
 */
struct _Paragraph {
  char *text;
  int length;
  int height;   /* Height, in pixels */
  GList *lines;
};

/* Structure representing a line
 */
struct _Line {
  /* List of PangoItems for this paragraph in visual order */
  GList *runs;
  int ascent;   /* Ascent of line, in pixels */
  int descent;  /* Descent of lines, in pixels */
  int offset;   /* Offset from left margin line, in pixels */
};

PangoFontDescription font_description;
static PangoFont *font = NULL;
static Paragraph *highlight_para;
static int highlight_offset;

static GtkWidget *message_label;
GtkWidget *layout;

PangoContext *context;

/* Read an entire file into a string
 */
static char *
read_file(char *name)
{
  GString *inbuf;
  int fd;
  char *text;
  char buffer[BUFSIZE];

  fd = open(name, O_RDONLY);
  if (!fd)
    {
      fprintf(stderr, "gscript-viewer: Cannot open %s: %s\n",
	      name, g_strerror (errno));
      return NULL;
    }

  inbuf = g_string_new (NULL);
  while (1)
    {
      int count = read (fd, buffer, BUFSIZE-1);
      if (count < 0)
	{
	  fprintf(stderr, "gscript-viewer: Error reading %s: %s\n",
		  name, g_strerror (errno));
	  g_string_free (inbuf, TRUE);
	  return NULL;
	}
      else if (count == 0)
	break;

      buffer[count] = '\0';

      g_string_append (inbuf, buffer);
    }

  close (fd);

  text = inbuf->str;
  g_string_free (inbuf, FALSE);

  return text;
}

/* Take a UTF8 string and break it into paragraphs on \n characters
 */
static GList *
split_paragraphs (char *text)
{
  char *p = text;
  GUChar4 wc;
  GList *result = NULL;
  char *last_para = text;
  
  while (*p)
    {
      char *next = unicode_get_utf8 (p, &wc);
      if (!next)
	{
	  fprintf (stderr, "gscript-viewer: Invalid character in input\n");
	  g_list_foreach (result, (GFunc)g_free, NULL);
	  return NULL;
	}
      if (!*p || !wc || wc == '\n')
	{
	  Paragraph *para = g_new (Paragraph, 1);
	  para->text = last_para;
	  para->length = p - last_para;
	  para->height = 0;
	  last_para = next;
	    
	  result = g_list_prepend (result, para);
	}
      if (!wc) /* incomplete character at end */
	break;
      p = next;
    }

  return g_list_reverse (result);
}

static void
get_logical_widths (char *text, PangoItem *item,
		    PangoGlyphString *glyphs,
		    PangoGlyphUnit *logical_widths)
{
  int i, j;
  int last_cluster = 0;
  int width = 0;
  int last_cluster_width = 0;
  
  for (i=0; i<=glyphs->num_glyphs; i++)
    {
      int index = (item->analysis.level % 2 == 0) ? i : glyphs->num_glyphs - i;
      
      if (index == glyphs->num_glyphs ||
	  glyphs->log_clusters[index] != last_cluster)
	{
	  gint next_cluster;
	  
	  if (index < glyphs->num_glyphs)
	    next_cluster = glyphs->log_clusters[index];
	  else
	    next_cluster = item->num_chars;
	  
	  for (j=last_cluster; j<next_cluster; j++)
	    logical_widths[j] = (width - last_cluster_width) / (next_cluster - last_cluster);
	  
	  last_cluster = next_cluster;
	  last_cluster_width = width;
	}
      
      if (i < glyphs->num_glyphs)
	width += glyphs->glyphs[i].geometry.width;
    }
}

/* Break an item into a piece that fits on the current line
 * and the remainder. (The remainder, if any is stored into
 * 'new_item'. If no piece of the item fits on the current line,
 * returns FALSE.
 */

gboolean 
break_run (char         *text,
	   PangoItem  *item,
	   int         *remaining_width,
	   PangoItem **new_item,
	   int         *logical_ascent,
	   int         *logical_descent)
{
  PangoGlyphString *buf;
  int width;
  gboolean result;

  /* First try the entire string to see if it fits. If it
   * doesn't, call GStringBreak, then chop off pieces
   * from the end until it fits. If it still doesn't
   * fit, give up and return FALSE.
   */

  buf = pango_glyph_string_new();
  
  pango_shape (font, text + item->offset, item->length, &item->analysis, buf);
  pango_x_extents (font, buf, NULL, NULL, &width, NULL, NULL, logical_ascent, logical_descent);

  result = FALSE;
  *new_item = NULL;

  if (width <= *remaining_width)
    {
      result = TRUE;
    }
  else
    {
      int length;
      int num_chars = item->num_chars;
      int new_width;

      PangoLogAttr *log_attrs = g_new (PangoLogAttr, item->num_chars);
      PangoGlyphUnit *log_widths = g_new (PangoGlyphUnit, item->num_chars);

      pango_break (text + item->offset, item->length, &item->analysis,
		   log_attrs);
      get_logical_widths (text, item, buf, log_widths);

      new_width = 0;
      while (--num_chars > 0)
	{
	  /* Shorten the item by one line break
	   */
	  width -= log_widths[num_chars] / 72;
	  if (log_attrs[num_chars].is_break && width <= *remaining_width)
	    break;
	}

      if (num_chars != 0)
	{
	  char *p;
	  gint n;

	  /* Determine utf8 length corresponding to num_chars. Slow?
	   */
	  n = num_chars;
	  p = text + item->offset;
	  while (n-- > 0)
	    p = unicode_next_utf8 (p);
	  
	  length = p - (text + item->offset);

	  *new_item = g_new (PangoItem, 1);
	  (*new_item)->offset = item->offset + length;
	  (*new_item)->length = item->length - length;
	  (*new_item)->num_chars = item->num_chars - num_chars;
	  (*new_item)->analysis = item->analysis;
	  
	  item->length = length;
	  item->num_chars = num_chars;

	  result = TRUE;
	}

      g_free (log_attrs);
      g_free (log_widths);
    }

  if (result)
    *remaining_width -= width;

  pango_glyph_string_free (buf);
 
  return result;
}

/* Break a paragraph into a list of lines which fit into
 * width, and compute the total height of the new paragraph
 */
void
layout_paragraph (Paragraph *para, int width)
{
  Line *line = NULL;
  GList *runs;
  int remaining_width;
  int height = 0;
  PangoDirection base_dir = pango_context_get_base_dir (context);
  
  /* Break paragraph into runs with consistent shaping engine
   * and direction
   */
  runs = pango_itemize (context, para->text, para->length, NULL, 0);

  /* Break runs to fit on each line
   */
  remaining_width = width;
  para->lines = NULL;
  while (runs)
    {
      PangoItem *new_item;
      gboolean fits;
      int logical_ascent;
      int logical_descent;

      fits = break_run (para->text, runs->data, &remaining_width, &new_item,
			&logical_ascent, &logical_descent);
      
      if (new_item) 
	{
	  /* The item was split, add the remaining portion into our
	   * lists of runs
	   */
	  GList *node = g_list_alloc();
	  
	  node->data = new_item;
	  node->next = runs->next;
	  if (node->next)
	    node->next->prev = node;
	  node->prev = runs;

	  runs->next = node;
	}
      
      if (fits || !line)
	{
	  /* Either we have a portion that fits on our line,
	   * or the initial unbreakable portion of the run
	   * doesn't fit on a complete line, so we just
	   * add it in anyways.
	   */
	  GList *tmp_list = runs->next;

	  if (!line)
	    {
	      line = g_new (Line, 1);
	      line->runs = NULL;
	      line->ascent = 0;
	      line->descent = 0;
	    }
	  
	  if (line->runs)
	    line->runs->prev = runs;
	  runs->next = line->runs;
	  line->runs = runs;

	  line->ascent = MAX (line->ascent, logical_ascent);
	  line->descent = MAX (line->descent, logical_descent);

	  runs = tmp_list;
	  if (runs)
	    runs->prev = NULL;
	}

      if (!runs || !fits || remaining_width == 0)
	{
	  /* A complete line, add to our list of lines
	   */
	  GList *visual_list;
	  
	  line->offset = (base_dir == PANGO_DIRECTION_RTL) ? remaining_width : 0;
	  line->runs = g_list_reverse (line->runs);
	  remaining_width = width;
	  height += line->ascent + line->descent;

	  /* Reorder the runs from logical to visual order
	   */
	  visual_list = pango_reorder_items (line->runs);
	  g_list_free (line->runs);
	  line->runs = visual_list;
	  
	  para->lines = g_list_append (para->lines, line);

	  line = NULL;
	}
    }

  para->height = height;
}

/* Given a x position within a run, determine the corresponding
 * character offset.
 */ 
gboolean
runs_x_to_cp (char *text, GList *runs, int x, int *offset)
{
  PangoGlyphString *buf;
  int width;
  int pixels = 0;

  buf = pango_glyph_string_new();
  
  while (runs)
    {
      PangoItem *item = runs->data;

      pango_shape (font, text + item->offset, item->length, &item->analysis, buf);
      pango_x_extents (font, buf, NULL, NULL, &width, NULL, NULL, NULL, NULL);

      if (x >= pixels && x < pixels + width)
	{
	  int pos;
	  char *p;
	  
	  pango_x_to_cp (text + item->offset, item->length,
			 &item->analysis, buf, (x - pixels) * 72,
			 &pos, NULL);

	  /* Converter the character position to byte offset */
	  p = text + item->offset;
	  while (pos--)
	    p = unicode_next_utf8 (p);

	  *offset = p - text;
	  return TRUE;
	}

      pixels += width;
      runs = runs->next;
    }

  pango_glyph_string_free (buf);

  return FALSE;
}

/* Given an x-y position, return the paragraph and offset
 * within the paragraph of the click.
 */
gboolean
xy_to_cp (GList *paragraphs, int x, int y,
	  Paragraph **para_return, int *offset)
{
  GList *para_list, *line_list;
  int height = 0;

  *para_return = NULL;

  para_list = paragraphs;
  while (para_list && height < y)
    {
      Paragraph *para = para_list->data;
      
      if (height + para->height >= y)
	{
	  line_list = para->lines;
	  while (line_list)
	    {
	      Line *line = line_list->data;
	      
	      if (height + line->ascent + line->descent >= y)
		{
		  if (runs_x_to_cp (para->text, line->runs,
				    x - line->offset,
				    offset))
		    {
		      *para_return = para;
		      return TRUE;
		    }
		  else
		    return FALSE;
		}
	      height += line->ascent + line->descent;
	      line_list = line_list->next;
	    }
	}
      
      height += para->height;
      para_list = para_list->next;
    }

  return FALSE;
}

/* Given a character position within a run, determine the corresponding
 * limits of that character in the x position.
 */ 
void
runs_char_bounds (char *text, GList *runs, int offset, int *x, int *width)
{
  int start_x;
  int end_x;
  int run_width;
  int pixels = 0;

  PangoGlyphString *buf = pango_glyph_string_new();

  while (runs)
    {
      PangoItem *item = runs->data;
      
      pango_shape (font, text + item->offset, item->length, &item->analysis, buf);
      pango_x_extents (font, buf, NULL, NULL, &run_width, NULL, NULL, NULL, NULL);

      if (offset >= item->offset &&
	  offset < item->offset + item->length)
	{
	  int char_pos;

	  /* Convert byte position into character position */
	  char_pos = _pango_utf8_len (text + item->offset, offset - item->offset);

	  /* Find bounds */
	  pango_cp_to_x (text + item->offset, item->length,
			 &item->analysis, buf, char_pos, FALSE, &start_x);
	  pango_cp_to_x (text + item->offset, item->length,
			 &item->analysis, buf, char_pos, TRUE, &end_x);
	  
	  if (start_x < end_x)
	    {
	      *x = pixels + start_x / 72;
	      *width = (end_x - start_x) / 72;
	    }
	  else
	    {
	      *x = pixels + end_x / 72;
	      *width = (start_x - end_x) / 72;
	    }
	    
	  break;
	}

      pixels += run_width;
      runs = runs->next;
    }

  pango_glyph_string_free (buf);

}

/* Given a paragraph and offset in that paragraph, find the
 * bounding rectangle for the character at the offset.
 */ 
void
char_bounds (GList *paragraphs, Paragraph *para, int offset,
	     int *x, int *y, int *width, int *height)
{
  GList *para_list, *line_list, *run_list;
  int pixels = 0;
  int chars_seen = 0;
  PangoDirection base_dir = pango_context_get_base_dir (context);
  
  para_list = paragraphs;
  while (para_list)
    {
      Paragraph *cur_para = para_list->data;
      
      if (cur_para == para)
	{
	  line_list = para->lines;
	  while (line_list)
	    {
	      Line *line = line_list->data;
	      
	      run_list = line->runs;
	      while (run_list)
		{
		  chars_seen += ((PangoItem *)run_list->data)->length;
		  run_list = run_list->next;
		}

	      if (offset < chars_seen)
		{
		  runs_char_bounds (para->text, line->runs, offset,
				    x, width);
		  *y = pixels;
		  *height = line->ascent + line->descent;
		  if (base_dir == PANGO_DIRECTION_RTL)
		    *x += line->offset;
		  
		  return;
		}

	      pixels += line->ascent + line->descent;
	      line_list = line_list->next;
	    }
	}
      
      pixels += cur_para->height;
      para_list = para_list->next;
    }
}

/* XOR a rectangle over a given character
 */
void
xor_char (GtkWidget *layout, GdkRectangle *clip_rect,
	  GList *paragraphs, Paragraph *para, int offset)
{
  static GdkGC *gc;
  int x, y, width, height;

  if (!gc)
    {
      GdkGCValues values;
      values.foreground = layout->style->white.pixel ?
	layout->style->white : layout->style->black;
      values.function = GDK_XOR;
      gc = gdk_gc_new_with_values (GTK_LAYOUT (layout)->bin_window,
				   &values,
				   GDK_GC_FOREGROUND | GDK_GC_FUNCTION);
    }

  gdk_gc_set_clip_rectangle (gc, clip_rect);

  char_bounds (paragraphs, para, offset, 
	       &x, &y, &width, &height);

  y -= GTK_LAYOUT (layout)->yoffset;

  if ((y + height >= 0) && (y < layout->allocation.height))
    gdk_draw_rectangle (GTK_LAYOUT (layout)->bin_window, gc, TRUE,
			x, y, width, height);
}


/* Draw a paragraph on the screen by looping through the list
 * of lines, then for each line, looping through the list of
 * runs for that line and drawing them.
 */
void
expose_paragraph (Paragraph *para, GdkDrawable *drawable,
		  GdkGC *gc, int x, int y)
{
  GList *line_list;
  GList *run_list;
  PangoGlyphString *buf;

  int x_off;

  buf = pango_glyph_string_new();

  line_list = para->lines;
  while (line_list)
    {
      Line *line = line_list->data;

      x_off = line->offset;
      run_list = line->runs;
      while (run_list)
	{
	  PangoItem *item = run_list->data;
	  int width;

	  /* Convert the item into glyphs */
	  pango_shape (font,
		       para->text + item->offset, item->length,
		       &item->analysis,
		       buf);

	  /* Render the glyphs to the screen */
	  pango_x_render (GDK_DISPLAY(), GDK_WINDOW_XWINDOW (drawable),
			  GDK_GC_XGC (gc), font, buf, x + x_off,
			  y + line->ascent);

	  /* Advance to next x position
	   */
	  if (run_list->next)
	    {
	      pango_x_extents (font, buf, NULL, NULL, &width, NULL, NULL, NULL, NULL);

	      x_off += width;
	    }
	  
	  run_list = run_list = run_list->next;
	}
      
      y += line->ascent + line->descent;
      line_list = line_list->next;
    }

  pango_glyph_string_free (buf);
}

/* Handle a size allocation by re-laying-out each paragraph to
 * the new width, setting the new size for the layout and
 * then queing a redraw
 */
void
size_allocate (GtkWidget *layout, GtkAllocation *allocation, GList *paragraphs)
{
  GList *tmp_list;
  int height = 0;
  
  tmp_list = paragraphs;
  while (tmp_list)
    {
      Paragraph *para = tmp_list->data;
      tmp_list = tmp_list->next;

      layout_paragraph (para, allocation->width);
      
      height += para->height;
    }

  gtk_layout_set_size (GTK_LAYOUT (layout), allocation->width, height);

  if (GTK_LAYOUT (layout)->yoffset + allocation->height > height)
    gtk_adjustment_set_value (GTK_LAYOUT (layout)->vadjustment,
			      height - allocation->height);
}

/* Handle a draw/expose by finding the paragraphs that intersect
 * the region and reexposing them.
 */
void
draw (GtkWidget *layout, GdkRectangle *area, GList *paragraphs)
{
  GList *tmp_list;
  int height = 0;
  
  gdk_draw_rectangle (GTK_LAYOUT (layout)->bin_window,
		      layout->style->base_gc[layout->state],
		      TRUE,
		      area->x, area->y, 
		      area->width, area->height);
  
  gdk_gc_set_clip_rectangle (layout->style->text_gc[layout->state], area);

  tmp_list = paragraphs;
  while (tmp_list &&
	 height < area->y + area->height + GTK_LAYOUT (layout)->yoffset)
    {
      Paragraph *para = tmp_list->data;
      tmp_list = tmp_list->next;
      
      if (height + para->height >= GTK_LAYOUT (layout)->yoffset + area->y)
	expose_paragraph (para,
			  GTK_LAYOUT (layout)->bin_window,
			  layout->style->text_gc[layout->state],
			  0, height - GTK_LAYOUT (layout)->yoffset);
      
      height += para->height;
    }

  gdk_gc_set_clip_rectangle (layout->style->text_gc[layout->state], NULL);

  if (highlight_para)
    xor_char (layout, area, paragraphs, highlight_para, highlight_offset);
}

gboolean
expose (GtkWidget *layout, GdkEventExpose *event, GList *paragraphs)
{
  if (event->window == GTK_LAYOUT (layout)->bin_window)
    draw (layout, &event->area, paragraphs);

  return TRUE;
}

void
button_press (GtkWidget *layout, GdkEventButton *event, GList *paragraphs)
{
  Paragraph *para = NULL;
  int offset;
  gchar *message;
  
  xy_to_cp (paragraphs, event->x, event->y + GTK_LAYOUT (layout)->yoffset,
	    &para, &offset);

  if (highlight_para)
    xor_char (layout, NULL, paragraphs, highlight_para, highlight_offset);

  highlight_para = para;
  highlight_offset = offset;
  
  if (para)
    {
      GUChar4 wc;

      unicode_get_utf8 (para->text + offset, &wc);
      message = g_strdup_printf ("Current char: U%04x", wc);
      
      xor_char (layout, NULL, paragraphs, highlight_para, highlight_offset);
    }
  else
    message = g_strdup_printf ("Current char:");

  gtk_label_set_text (GTK_LABEL (message_label), message);
  g_free (message);
}

static void
checkbutton_toggled (GtkWidget *widget, gpointer data)
{
  pango_context_set_base_dir (context, GTK_TOGGLE_BUTTON (widget)->active ? PANGO_DIRECTION_RTL : PANGO_DIRECTION_LTR);
  gtk_widget_queue_resize (layout);
}

static void
reload_font ()
{
  PangoFont *new_font;

  new_font = pango_context_load_font (context, &font_description, 16.);

  if (new_font)
    {
      pango_font_unref (font);
      font = new_font;
    }

  gtk_widget_queue_resize (layout);
}

void
set_family (GtkWidget *menu_item, gpointer data)
{
  char *label = gtk_object_get_data (GTK_OBJECT (menu_item), "family");

  g_free (font_description.family_name);
  font_description.family_name = g_strdup (label);

  reload_font ();
}

GtkWidget *
make_families_menu ()
{
  GtkWidget *menu, *menu_item, *option_menu;
  GHashTable *families_hash = g_hash_table_new (g_str_hash, g_str_equal);
  GSList *families = NULL;
  GSList *tmp_list;
  int i;
  
  PangoFontDescription **descs;
  int n_descs;
  int index, active = -1;

  pango_context_list_fonts (context, &descs, &n_descs);

  for (i=0; i<n_descs; i++)
    {
      if (!g_hash_table_lookup (families_hash, descs[i]->family_name))
	{
	  g_hash_table_insert (families_hash, descs[i]->family_name, descs[i]);
	  families = g_slist_prepend (families, descs[i]->family_name);
	}
    }

  families = g_slist_reverse (families);
  
  menu = gtk_menu_new ();

  tmp_list = families;
  index = 0;
  while (tmp_list)
    {
      if (strcmp (tmp_list->data, font_description.family_name) == 0)
	active = index; 
      
      menu_item = gtk_menu_item_new_with_label (tmp_list->data);
      gtk_object_set_data_full (GTK_OBJECT (menu_item), "family",
				g_strdup (tmp_list->data), (GtkDestroyNotify)g_free);
      
      gtk_signal_connect (GTK_OBJECT (menu_item), "activate",
			  GTK_SIGNAL_FUNC (set_family), NULL);
      gtk_widget_show (menu_item);
      gtk_menu_append (GTK_MENU (menu), menu_item);
      
      tmp_list = tmp_list->next;
      index++;
    }
  
  g_hash_table_destroy (families_hash);
  g_slist_free (families);
  
  pango_font_descriptions_free (descs, n_descs);

  option_menu = gtk_option_menu_new ();
  gtk_option_menu_set_menu (GTK_OPTION_MENU (option_menu), menu);

  if (active != -1)
    gtk_option_menu_set_history (GTK_OPTION_MENU (option_menu), active);
  
  return option_menu;
}


GtkWidget *
make_font_selector (void)
{
  GtkWidget *hbox;
  GtkWidget *util_hbox;
  GtkWidget *label;
  GtkWidget *option_menu;
  
  hbox = gtk_hbox_new (FALSE, 4);
  
  util_hbox = gtk_hbox_new (FALSE, 2);
  label = gtk_label_new ("Family:");
  gtk_box_pack_start (GTK_BOX (util_hbox), label, FALSE, FALSE, 0);
  option_menu = make_families_menu ();
  gtk_box_pack_start (GTK_BOX (util_hbox), option_menu, FALSE, FALSE, 0);
  
  gtk_box_pack_start (GTK_BOX (hbox), util_hbox, FALSE, FALSE, 0);

  return hbox;
}

int 
main (int argc, char **argv)
{
  char *text;
  GtkWidget *window;
  GtkWidget *scrollwin;
  GtkWidget *vbox, *hbox;
  GtkWidget *frame;
  GtkWidget *checkbutton;
  GList *paragraphs;

  gtk_init (&argc, &argv);
  
  if (argc != 2)
    {
      fprintf (stderr, "Usage: gscript-viewer FILE\n");
      exit(1);
    }

  /* Create the list of paragraphs from the supplied file
   */
  text = read_file (argv[1]);
  if (!text)
    exit(1);

  paragraphs = split_paragraphs (text);

  context = pango_x_get_context (GDK_DISPLAY());
  pango_context_set_lang (context, "en_US");
  pango_context_set_base_dir (context, PANGO_DIRECTION_LTR);

  font_description.family_name = g_strdup ("fixed");
  font_description.style = PANGO_STYLE_NORMAL;
  font_description.variant = PANGO_VARIANT_NORMAL;
  font_description.weight = 500;
  font_description.stretch = PANGO_STRETCH_NORMAL;

  font = pango_context_load_font (context, &font_description, 16.);
  
#if 0
  /* We hard code a font globally for now
   */
  font = pango_x_load_font (GDK_DISPLAY(),
    /*			    "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-*-iso10646-1," */
			    "-tamil-tscakaram-medium-r-normal--*-120-*-*-*-*-tscii-0,"
			    "-gnu-unifont-medium-r-normal--*-160-*-*-c-*-iso10646-1,"
			    "-*-*-medium-r-normal--*-160-*-*-*-*-*-*");
#endif  


  /* Create the user interface
   */
  window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
  gtk_window_set_default_size (GTK_WINDOW (window), 400, 400);

  gtk_signal_connect (GTK_OBJECT (window), "destroy",
		      GTK_SIGNAL_FUNC (gtk_main_quit), NULL);

  vbox = gtk_vbox_new (FALSE, 4);
  gtk_container_add (GTK_CONTAINER (window), vbox);

  hbox = make_font_selector ();
  gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, FALSE, 0);
  
  scrollwin = gtk_scrolled_window_new (NULL, NULL);
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrollwin),
				  GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
  
  gtk_box_pack_start (GTK_BOX (vbox), scrollwin, TRUE, TRUE, 0);
  
  layout = gtk_layout_new (NULL, NULL);
  gtk_widget_set_events (layout, GDK_BUTTON_PRESS_MASK);
  gtk_widget_set_app_paintable (layout, TRUE);

  gtk_signal_connect (GTK_OBJECT (layout), "size_allocate",
		      GTK_SIGNAL_FUNC (size_allocate), paragraphs);
  gtk_signal_connect (GTK_OBJECT (layout), "expose_event",
		      GTK_SIGNAL_FUNC (expose), paragraphs);
  gtk_signal_connect (GTK_OBJECT (layout), "draw",
		      GTK_SIGNAL_FUNC (draw), paragraphs);
  gtk_signal_connect (GTK_OBJECT (layout), "button_press_event",
		      GTK_SIGNAL_FUNC (button_press), paragraphs);

  gtk_container_add (GTK_CONTAINER (scrollwin), layout);

  frame = gtk_frame_new (NULL);
  gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_IN);
  gtk_box_pack_start (GTK_BOX (vbox), frame, FALSE, FALSE, 0);

  message_label = gtk_label_new ("Current char:");
  gtk_misc_set_padding (GTK_MISC (message_label), 1, 1);
  gtk_misc_set_alignment (GTK_MISC (message_label), 0.0, 0.5);
  gtk_container_add (GTK_CONTAINER (frame), message_label);

  checkbutton = gtk_check_button_new_with_label ("Use RTL global direction");
  gtk_signal_connect (GTK_OBJECT (checkbutton), "toggled",
		      GTK_SIGNAL_FUNC (checkbutton_toggled), NULL);
  gtk_box_pack_start (GTK_BOX (vbox), checkbutton, FALSE, FALSE, 0);

  gtk_widget_show_all (window);

  gtk_main ();
  
  return 0;
}