reviewed by: Pavel Cisler <pavel@eazel.com>

	Fix bugs 4711, 2322, 3778, 4989, 5044, 5166, 5408, 4418, 3779 (parts),
	5051, 2783 and maybe other relating to (ab)use of fonts,
	backgrounds and other sacred attrbiutes of Gtk themes.

	* components/hardware/nautilus-hardware-view.c: (setup_form_title),
	(setup_overview_form), (setup_CPU_form), (setup_RAM_form),
	(setup_IDE_form):
	Fix hard coded fonts.

	* components/music/nautilus-music-view.c:
	(nautilus_music_view_initialize),
	(music_view_set_selected_song_title), (reset_playtime),
	(play_status_display), (slider_moved_callback),
	(add_play_controls):
	Fix hard coded fonts.

	* components/rpmview/nautilus-rpm-verify-window.c:
	(nautilus_rpm_verify_window_initialize):
	Fix hard coded fonts.

	* components/rpmview/nautilus-rpm-view.c:
	(nautilus_rpm_view_initialize):
	* components/services/install/nautilus-view/nautilus-service-instal
	l-view.c: (horizontal_line_new), (install_message_new),
	(generate_install_form),
	(nautilus_service_install_view_initialize),
	(current_progress_bar_complete),
	(nautilus_service_install_installing):
	Fix hard coded fonts.

	* components/services/login/nautilus-view/nautilus-change-password-
	view.c: (generate_change_password_form), (authn_succeeded),
	(authn_failed), (change_password_button_cb),
	(nautilus_change_password_view_initialize):
	Fix hard coded fonts.  Cleanup header inclusion a bit.

	* components/services/nautilus-dependent-shared/Makefile.am:
	Retire some crufty code.

	* components/services/nautilus-dependent-shared/eazel-services-exte
	nsions.c: (eazel_services_image_new),
	(eazel_services_image_new_from_uri):, (eazel_services_label_new):
	Update for label, image and hard coded font changes.

	* components/services/nautilus-dependent-shared/eazel-services-exte
	nsions.h:
	Make the colors opaque.  Remove a bunch of hard coded font stuff.
	Also remove a bunch of hard coded offsets.  We use alignments and
	paddings instead.

	* components/services/nautilus-dependent-shared/eazel-services-foot
	er.c: (label_enter_event), (label_leave_event),
	(image_enter_event), (footer_item_new),
	(eazel_services_footer_update):
	Update for label, image and hard coded font changes.

	* components/services/nautilus-dependent-shared/eazel-services-head
	er.c: (eazel_services_header_title_new),
	(eazel_services_header_middle_new):
	* components/services/nautilus-dependent-shared/shared-service-util
	ities.c:
	* components/services/nautilus-dependent-shared/shared-service-util
	ities.h:
	* components/services/nautilus-dependent-shared/shared-service-widg
	ets.c:
	* components/services/nautilus-dependent-shared/shared-service-widg
	ets.h:
	* components/services/summary/nautilus-view/nautilus-summary-callba
	cks.c:
	* components/services/summary/nautilus-view/nautilus-summary-dialog
	s.c: (generate_login_dialog):
	* components/services/summary/nautilus-view/nautilus-summary-footer
	.c:
	* components/services/summary/nautilus-view/nautilus-summary-menu-i
	tems.c:
	* components/services/summary/nautilus-view/nautilus-summary-view-p
	rivate.h:
	* components/services/summary/nautilus-view/nautilus-summary-view.c
	: (generate_summary_form), (generate_service_entry_row),
	(generate_eazel_news_entry_row), (generate_update_news_entry_row):
	Update for label, image and hard coded font changes.

	* libnautilus-extensions/Makefile.am:
	Add new smooth/label/image widget stuff.  Retire buffered widget.

	* libnautilus-extensions/nautilus-art-extensions.c:
	(nautilus_art_irect_get_width), (nautilus_art_irect_get_height):
	* libnautilus-extensions/nautilus-art-extensions.h:
	Two new very simple functions to get the width/height of an
	ArtIRect.

	* libnautilus-extensions/nautilus-art-gtk-extensions.c:
	(nautilus_irect_gtk_widget_get_frame):
	* libnautilus-extensions/nautilus-art-gtk-extensions.h:
	New simple function to get the dimensions of a widget as an
	ArtIRect frame.

	* libnautilus-extensions/nautilus-buffered-widget.c:
	* libnautilus-extensions/nautilus-buffered-widget.h:
	Retire.  We dont use this no more.

	* libnautilus-extensions/nautilus-customization-data.c:
	(nautilus_customization_data_get_next_element_for_display):
	Update for image and hard coded font changes.

	* libnautilus-extensions/nautilus-debug-drawing.c:
	(debug_pixbuf_viewer_initialize_class),
	(debug_pixbuf_viewer_initialize), (debug_pixbuf_viewer_destroy),
	(debug_pixbuf_viewer_size_request),
	(debug_pixbuf_viewer_expose_event),
	(debug_pixbuf_viewer_set_pixbuf),
	(nautilus_debug_draw_rectangle_and_cross), (destroy_debug_window),
	(nautilus_debug_show_pixbuf):
	* libnautilus-extensions/nautilus-debug-drawing.h:
	Back to using a widget to display the debug pixbuf.  But since we
	cant use NautilusImage (because we want to use this debug stuff to
	debug NautilusImage itselft) we need something else.  Thus a new
	private and simple widget to display the debug pixbuf.

	* libnautilus-extensions/nautilus-gdk-pixbuf-extensions.c:
	(nautilus_gdk_pixbuf_draw_to_drawable),
	(nautilus_gdk_pixbuf_draw_to_pixbuf_alpha): Fix a very dumb typo.
	(draw_tile_to_pixbuf_callback),
	(nautilus_gdk_pixbuf_draw_to_pixbuf_tiled),
	(nautilus_gdk_pixbuf_draw_to_drawable_tiled),
	(nautilus_gdk_pixbuf_get_from_window_safe):
	Rename opacity macros to FULLY_OPAQUE and FULLY_TRANSPARENT for
	clarity.

	* libnautilus-extensions/nautilus-gdk-pixbuf-extensions.h:
	Rename opacity macros to FULLY_OPAQUE and FULLY_TRANSPARENT for
	clarity.

	* libnautilus-extensions/nautilus-icon-factory.c: (embed_text):
	Update opacity macros.  Tiny update for change in font constructor.

	* libnautilus-extensions/nautilus-image-with-background.h:
	* libnautilus-extensions/nautilus-image-with-background.c:
	(find_background_ancestor), (draw_background_callback),
	(nautilus_image_new_with_background):
	Create a NautilusImage that uses NautilusBackground to
	draw the background.  We put this in a separate file to avoid the
	ugly dependency chain in NautilusBackground so that NautilusImage
	can be used by standalone components in the future.

	* libnautilus-extensions/nautilus-image.h:
	* libnautilus-extensions/nautilus-image.c:
	(nautilus_image_initialize_class), (nautilus_image_initialize),
	(nautilus_image_destroy), (nautilus_image_set_arg),
	(nautilus_image_get_arg), (nautilus_image_size_request),
	(image_paint_pixbuf_callback), (image_composite_pixbuf_callback),
	(nautilus_image_expose_event),
	(nautilus_image_set_is_smooth_signal), (image_get_pixbuf_frame),
	(image_get_pixbuf_bounds), (image_get_tile_frame),
	(nautilus_image_new), (nautilus_image_set_is_smooth),
	(nautilus_image_get_is_smooth), (nautilus_image_set_tile_pixbuf),
	(nautilus_image_get_tile_pixbuf), (nautilus_image_set_pixbuf),
	(nautilus_image_set_pixbuf_from_file_name),
	(nautilus_image_get_pixbuf), (nautilus_image_set_pixbuf_opacity),
	(nautilus_image_get_pixbuf_opacity),
	(nautilus_image_set_tile_opacity),
	(nautilus_image_get_tile_opacity), (nautilus_image_set_tile_width),
	(nautilus_image_get_tile_width), (nautilus_image_set_tile_height),
	(nautilus_image_get_tile_height),
	(nautilus_image_set_tile_mode_vertical),
	(nautilus_image_get_tile_mode_vertical),
	(nautilus_image_set_tile_mode_horizontal),
	(nautilus_image_get_tile_mode_horizontal),
	(nautilus_image_set_tile_pixbuf_from_file_name),
	(nautilus_image_set_background_mode),
	(nautilus_image_get_background_mode),
	(nautilus_image_set_solid_background_color),
	(nautilus_image_get_solid_background_color),
	(nautilus_image_new_solid):
	Fixed many problems.  Properly handles rendering
	on top of arbitrary Gtk backgrounds.  Does not allocate a buffer
	the size of the widget anymore.  All rendering occurs on exposure
	events.  Honrts the the GtkMisc superclass attrbutes for alignment
	and padding.  The widget is a lot simpler now.

	* libnautilus-extensions/nautilus-label-with-background.h:
	* libnautilus-extensions/nautilus-label-with-background.c:
	(find_background_ancestor), (draw_background_callback),
	(nautilus_label_new_with_background):
	Create a NautilusLabel that uses NautilusBackground to
	draw the background.  We put this in a separate file to avoid the
	ugly dependency chain in NautilusBackground so that NautilusLabel
	can be used by standalone components in the future.

	* libnautilus-extensions/nautilus-label.h:
	* libnautilus-extensions/nautilus-label.c:
	(nautilus_label_initialize_class), (nautilus_label_initialize),
	(nautilus_label_destroy), (nautilus_label_set_arg),
	(nautilus_label_get_arg), (nautilus_label_size_request),
	(label_paint_pixbuf_callback), (label_composite_pixbuf_callback),
	(nautilus_label_expose_event),
	(nautilus_label_set_is_smooth_signal), (label_draw_text_to_pixbuf),
	(label_get_default_line_wrap_width), (label_get_text_frame),
	(label_get_text_bounds), (label_get_tile_frame), (label_peek_text),
	(label_get_empty_line_height),
	(label_get_total_text_and_line_offset_height),
	(label_line_geometries_clear), (label_line_geometries_recompute),
	(nautilus_label_new), (nautilus_label_set_smooth_font),
	(nautilus_label_get_smooth_font),
	(nautilus_label_set_smooth_font_size),
	(nautilus_label_get_smooth_font_size),
	(nautilus_label_set_is_smooth), (nautilus_label_get_is_smooth),
	(nautilus_label_set_tile_pixbuf), (nautilus_label_get_tile_pixbuf),
	(nautilus_label_set_text_opacity),
	(nautilus_label_get_text_opacity),
	(nautilus_label_set_tile_opacity),
	(nautilus_label_get_tile_opacity), (nautilus_label_set_tile_width),
	(nautilus_label_get_tile_width), (nautilus_label_set_tile_height),
	(nautilus_label_get_tile_height),
	(nautilus_label_set_tile_mode_vertical),
	(nautilus_label_get_tile_mode_vertical),
	(nautilus_label_set_tile_mode_horizontal),
	(nautilus_label_get_tile_mode_horizontal),
	(nautilus_label_set_tile_pixbuf_from_file_name),
	(nautilus_label_set_background_mode),
	(nautilus_label_get_background_mode),
	(nautilus_label_set_solid_background_color),
	(nautilus_label_get_solid_background_color),
	(nautilus_label_set_smooth_line_wrap_width),
	(nautilus_label_get_smooth_line_wrap_width),
	(nautilus_label_set_text_color), (nautilus_label_get_text_color),
	(nautilus_label_set_smooth_drop_shadow_offset),
	(nautilus_label_get_smooth_drop_shadow_offset),
	(nautilus_label_set_smooth_drop_shadow_color),
	(nautilus_label_get_smooth_drop_shadow_color),
	(nautilus_label_set_justify), (nautilus_label_get_text_justify),
	(nautilus_label_set_text), (nautilus_label_get_text),
	(nautilus_label_set_wrap), (nautilus_label_get_wrap),
	(nautilus_label_new_solid), (nautilus_label_make_bold),
	(nautilus_label_make_larger), (nautilus_label_make_smaller):
	Fixed many problems.  Properly handles rendering
	on top of arbitrary Gtk backgrounds.  Does not allocate a buffer
	the size of the widget anymore.  All rendering occurs on exposure
	events.  Honors the the GtkMisc superclass attrbutes for alignment
	and padding.  NautilusLabel is now subclassed from GtkLabel
	itself.  That means that the is_smooth attribute can be toggled to
	make both religions happy.  Support for making the label larger,
	smaller and/or bold based on the current font.  Renamed a lot of
	methods to make it obvious that they apply only to the smooth case.
	Also made the api match GtkLabel more closely.  So many functions
	got renamed.

	* libnautilus-extensions/nautilus-radio-button-group.c:
	(nautilus_radio_button_group_set_entry_pixbuf):
	Tiny update for changes in the NautilusImage constructor.

	* libnautilus-extensions/nautilus-scalable-font-private.h:
	New file.  Some private font stuff lives here.  I need this
	changed for a checkin that I will make later regarding improvement
	of performance in the icon container smooth fonts.

	* libnautilus-extensions/nautilus-scalable-font.h:
	* libnautilus-extensions/nautilus-scalable-font.c:
	(nautilus_scalable_font_initialize), (font_entry_new),
	(font_entry_free), (nautilus_scalable_font_new),
	(nautilus_scalable_font_make_bold),
	(nautilus_scalable_font_draw_text),
	(nautilus_scalable_font_draw_text_lines_with_dimensions),
	(nautilus_scalable_font_draw_text_lines),
	(nautilus_scalable_font_get_default_font),
	(nautilus_scalable_font_get_rsvg_handle),
	(nautilus_scalable_font_get_rsvg_context),
	(nautilus_text_layout_paint):
	Change the constructor to return the type itself instead of
	GtkObject.  Some minor style tweaks.  Keep track of the font entry
	that was used to allocate the font.  New private functions for
	accessing the rsvg context and font handles.  Remove an unsed
	function.

	* libnautilus-extensions/nautilus-smooth-widget.h:
	* libnautilus-extensions/nautilus-smooth-widget.c:
	(widget_is_smooth), (smooth_widget_set_is_smooth),
	(preferences_get_is_smooth), (smooth_widget_destroy),
	(smooth_graphics_mode_changed_callback),
	(nautilus_smooth_widget_register),
	(smooth_widget_get_tile_origin_point),
	(smooth_widget_get_gtk_background), (smooth_widget_get_background),
	(smooth_widget_paint_tile_opaque),
	(smooth_widget_paint_tile_transparent),
	(smooth_widget_paint_content_opaque),
	(smooth_widget_paint_content_transparent),
	(smooth_widget_paint_tile_and_content_transparent),
	(nautilus_smooth_widget_paint),
	(nautilus_smooth_widget_get_tile_bounds),
	(nautilus_smooth_widget_get_preferred_frame):
	Shared code between NautilusLabel and NautilusImage.  ALl the code
	to support smooth toggable widgets lives here.  Also, keep track
	of smooth widgets and toggle their is_smooth attribute in response
	to nautilus smooth graphics preferences changes.

	* libnautilus-extensions/nautilus-tabs.c:
	(nautilus_tabs_initialize), (draw_tab_label):
	Tiny update for change in font constructor.  Add a FIXME for a
	hard coded font issue im going to fix later.  Opacity macro
	update.

	* src/file-manager/fm-properties-window.c:
	(create_image_widget_for_file):
	Using the new image widget makes this code a lot simpler.  No
	longer need to check smooth preference.  It all happens
	automatically.

	* src/file-manager/nautilus-indexing-info.c:
	(update_progress_display), (show_reindex_request_information),
	(show_index_progress_bar), (show_indexing_info_dialog):
	Fix a bunch of hard coded font issues.

	* src/nautilus-about.c: (draw_aa_string),
	(nautilus_about_draw_info), (nautilus_about_update_authors):
	Tiny update for change in font constructor.  Opacity macro
	update.

	* src/nautilus-first-time-druid.c: (label_new_left_justified),
	(make_hbox_user_level_radio_button), (set_up_user_level_page),
	(set_up_service_signup_page), (set_up_update_page),
	(set_up_proxy_config_page), (set_up_update_feedback_page),
	(nautilus_first_time_druid_show):
	Fix a bunch of hard coded font issues.  Also fix the rendering
	problems with image usage inside selectable buttons.

	* src/nautilus-property-browser.c:
	(nautilus_property_browser_initialize),
	(set_emblem_image_from_file), (make_property_tile),
	(make_properties_from_directories), (add_reset_property),
	(make_properties_from_xml_node),
	(nautilus_property_browser_update_contents):
	Fix hard coded fonts.  Update for NautilusImage and NautilusLabel
	changes.

	* src/nautilus-search-bar-criterion.c:
	Remove unused #include.

	* src/nautilus-shell.c: (display_caveat):
	Fix hard coded fonts.

	* src/nautilus-sidebar-tabs.c:
	(nautilus_sidebar_tabs_load_theme_data), (draw_one_tab_plain),
	(draw_one_tab_themed):
	Fix hard coded fonts.  Opacity macros update.

	* src/nautilus-sidebar-title.c:
	(nautilus_sidebar_title_initialize),
	(nautilus_sidebar_title_select_text_color), (update_icon),
	(update_font), (update_title), (update_more_info), (add_emblem),
	(sidebar_title_create_title_label),
	(sidebar_title_create_more_info_label),
	(smooth_graphics_mode_changed_callback):
	Update for NautilusImage and NautilusLabel changes.  Made the
	widget a lot simpler.

	We no longer need to keep track of smooth changes in the sidebar
	title.  They are taked care automatically by the widgets.

	We no longer need to create 2 labels to honor smoothness.
	NautilusLabel does it all now.

	Removed a set_background() function that already
	exists in nautilus-extensions.

	* src/nautilus-theme-selector.c:
	(nautilus_theme_selector_initialize), (set_help_label),
	(exit_remove_mode):
	Fix hard coded fonts.

	* test/font-test.sh:
	Retire.  Not needed.

	* test/.cvsignore:
	* test/Makefile.am:
	Add a bunch of tests.

	* test/test.h:
	* test/test.c:
	Put shared test code here.

	* test/test-nautilus-font-simple.c:
	* test/test-nautilus-font.c:
	* test/test-nautilus-image-background.c:
	* test/test-nautilus-image-scrolled.c:
	* test/test-nautilus-image-simple.c:
	* test/test-nautilus-image-tile.c:
	* test/test-nautilus-image.c:
	* test/test-nautilus-label-background.c:
	* test/test-nautilus-label-flavorful.c:
	* test/test-nautilus-label-scrolled.c:
	* test/test-nautilus-label-simple.c:
	* test/test-nautilus-label-wrapped.c:
	* test/test-nautilus-label.c:
	* test/test-nautilus-pixbuf-tile.c:
	* test/test-nautilus-smooth-graphics.c:
	* test/test-nautilus-wrapped-label.c:
	Some new tests.  Many updates to old label and image tests.

1 files changed, 408 insertions, 0 deletions

diff --git a/test/test.c b/test/test.c
new file mode 100644
index 000000000..3348695fe
--- /dev/null
+++ b/test/test.c
@@ -0,0 +1,408 @@
+#include "test.h"
+
+#include <libart_lgpl/art_rgb.h>
+
+void
+test_init (int *argc,
+	   char ***argv)
+{
+	gtk_init (argc, argv);
+	gdk_rgb_init ();
+	gnome_vfs_init ();
+}
+
+void
+test_quit (int exit_code)
+{
+	gnome_vfs_shutdown ();
+	gtk_main_quit ();
+}
+
+void
+test_delete_event (GtkWidget *widget,
+		   GdkEvent *event,
+		   gpointer callback_data)
+{
+	test_quit (0);
+}
+
+GtkWidget *
+test_window_new (const char *title, guint border_width)
+{
+	GtkWidget *window;
+
+	window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
+	
+	if (title != NULL) {
+		gtk_window_set_title (GTK_WINDOW (window), title);
+	}
+
+	gtk_signal_connect (GTK_OBJECT (window),
+			    "delete_event",
+			    GTK_SIGNAL_FUNC (test_delete_event),
+			    NULL);
+	
+	gtk_window_set_policy (GTK_WINDOW (window), TRUE, TRUE, FALSE);
+	gtk_container_set_border_width (GTK_CONTAINER (window), border_width);
+	
+	return window;
+}
+
+void
+test_gtk_widget_set_background_image (GtkWidget *widget,
+				      const char *image_name)
+{
+	NautilusBackground *background;
+	char *uri;
+
+	g_return_if_fail (GTK_IS_WIDGET (widget));
+	g_return_if_fail (image_name != NULL);
+
+	background = nautilus_get_widget_background (widget);
+	
+	uri = g_strdup_printf ("file://%s/%s", NAUTILUS_DATADIR, image_name);
+
+	nautilus_background_set_image_uri (background, uri);
+
+	g_free (uri);
+}
+
+void
+test_gtk_widget_set_background_color (GtkWidget *widget,
+				      const char *color_spec)
+{
+	NautilusBackground *background;
+
+	g_return_if_fail (GTK_IS_WIDGET (widget));
+	g_return_if_fail (color_spec != NULL);
+
+	background = nautilus_get_widget_background (widget);
+	
+	nautilus_background_set_color (background, color_spec);
+}
+
+GdkPixbuf *
+test_pixbuf_new_named (const char *name, float scale)
+{
+	GdkPixbuf *pixbuf;
+	char *path;
+
+	g_return_val_if_fail (name != NULL, NULL);
+	g_return_val_if_fail (scale >= 0.0, NULL);
+
+	if (name[0] == '/') {
+		path = g_strdup (name);
+	} else {
+		path = g_strdup_printf ("%s/%s", NAUTILUS_DATADIR, name);
+	}
+
+	pixbuf = gdk_pixbuf_new_from_file (path);
+
+	g_free (path);
+
+	g_return_val_if_fail (pixbuf != NULL, NULL);
+	
+	if (scale != 1.0) {
+		GdkPixbuf *scaled;
+		float width = gdk_pixbuf_get_width (pixbuf) * scale;
+		float height = gdk_pixbuf_get_width (pixbuf) * scale;
+
+		scaled = gdk_pixbuf_scale_simple (pixbuf, width, height, GDK_INTERP_BILINEAR);
+
+		gdk_pixbuf_unref (pixbuf);
+
+		g_return_val_if_fail (scaled != NULL, NULL);
+
+		pixbuf = scaled;
+	}
+
+	return pixbuf;
+}
+
+GtkWidget *
+test_image_new (const char *pixbuf_name,
+		const char *tile_name,
+		float scale,
+		gboolean with_background)
+{
+	GtkWidget *image;
+
+	if (with_background) {
+		image = nautilus_image_new_with_background (NULL);
+	} else {
+		image = nautilus_image_new (NULL);
+	}
+
+	if (pixbuf_name != NULL) {
+		GdkPixbuf *pixbuf;
+
+		pixbuf = test_pixbuf_new_named (pixbuf_name, scale);
+
+		if (pixbuf != NULL) {
+			nautilus_image_set_pixbuf (NAUTILUS_IMAGE (image), pixbuf);
+			gdk_pixbuf_unref (pixbuf);
+		}
+	}
+
+	if (tile_name != NULL) {
+		GdkPixbuf *tile_pixbuf;
+
+		tile_pixbuf = test_pixbuf_new_named (tile_name, 1.0);
+
+		if (tile_pixbuf != NULL) {
+			nautilus_image_set_tile_pixbuf (NAUTILUS_IMAGE (image), tile_pixbuf);
+			gdk_pixbuf_unref (tile_pixbuf);
+		}
+	}
+
+	return image;
+}
+
+GtkWidget *
+test_label_new (const char *text,
+		const char *tile_name,
+		gboolean with_background,
+		int num_sizes_larger)
+{
+	GtkWidget *label;
+
+	if (text == NULL) {
+		text = "Foo";
+	}
+	
+	if (with_background) {
+		label = nautilus_label_new_with_background (text);
+	} else {
+		label = nautilus_label_new (text);
+	}
+
+	if (num_sizes_larger < 0) {
+		nautilus_label_make_smaller (NAUTILUS_LABEL (label), ABS (num_sizes_larger));
+	} else if (num_sizes_larger > 0) {
+		nautilus_label_make_larger (NAUTILUS_LABEL (label), num_sizes_larger);
+	}
+
+	if (tile_name != NULL) {
+		GdkPixbuf *tile_pixbuf;
+
+		tile_pixbuf = test_pixbuf_new_named (tile_name, 1.0);
+
+		if (tile_pixbuf != NULL) {
+			nautilus_label_set_tile_pixbuf (NAUTILUS_LABEL (label), tile_pixbuf);
+			gdk_pixbuf_unref (tile_pixbuf);
+		}
+	}
+
+	return label;
+}
+
+static void
+rgba_run_alpha (art_u8 *buf, art_u8 r, art_u8 g, art_u8 b, int alpha, int n)
+{
+  int i;
+  int v;
+
+  for (i = 0; i < n; i++)
+    {
+      v = *buf;
+      *buf++ = v + (((r - v) * alpha + 0x80) >> 8);
+      v = *buf;
+      *buf++ = v + (((g - v) * alpha + 0x80) >> 8);
+      v = *buf;
+      *buf++ = v + (((b - v) * alpha + 0x80) >> 8);
+
+      *buf++ = 255;
+    }
+}
+
+typedef void (*FillRunCallback) (art_u8 *buf, art_u8 r, art_u8 g, art_u8 b, int alpha, int n);
+
+/* This function is totally broken. 
+ * Amongst other interesting things it will write outside
+ * the pixbufs pixels.
+ */
+static void
+pixbuf_draw_rectangle (GdkPixbuf *pixbuf,
+		       const ArtIRect *rectangle,
+		       guint32 color,
+		       gboolean filled)
+{
+	guchar r;
+	guchar g;
+	guchar b;
+	guchar opacity;
+
+	guint width;
+	guint height;
+	guchar *pixels;
+	guint rowstride;
+ 	int y;
+	gboolean has_alpha;
+	guint pixel_offset;
+	guchar *offset;
+
+	guint rect_width;
+	guint rect_height;
+
+	ArtIRect draw_area;
+
+	FillRunCallback fill_run_callback;
+
+	g_return_if_fail (pixbuf != NULL);
+
+	width = gdk_pixbuf_get_width (pixbuf);
+	height = gdk_pixbuf_get_height (pixbuf);
+	pixels = gdk_pixbuf_get_pixels (pixbuf);
+	rowstride = gdk_pixbuf_get_rowstride (pixbuf);
+	has_alpha = gdk_pixbuf_get_has_alpha (pixbuf);
+	pixel_offset = has_alpha ? 4 : 3;
+
+	r = NAUTILUS_RGBA_COLOR_GET_R (color);
+	g = NAUTILUS_RGBA_COLOR_GET_G (color);
+	b = NAUTILUS_RGBA_COLOR_GET_B (color);
+	opacity = NAUTILUS_RGBA_COLOR_GET_A (color);
+
+	fill_run_callback = has_alpha ? rgba_run_alpha : art_rgb_run_alpha;
+
+	if (rectangle != NULL) {
+		g_return_if_fail (rectangle->x1 >  rectangle->x0);
+		g_return_if_fail (rectangle->y1 >  rectangle->y0);
+		
+		rect_width = rectangle->x1 - rectangle->x0;
+		rect_height = rectangle->y1 - rectangle->y0;
+
+		draw_area = *rectangle;
+	}
+	else {
+		rect_width = width;
+		rect_height = height;
+
+		draw_area.x0 = 0;
+		draw_area.y0 = 0;
+		draw_area.x1 = width;
+		draw_area.y1 = height;
+	}
+
+	if (filled) {
+		offset = pixels + (draw_area.y0 * rowstride) + (draw_area.x0 * pixel_offset);
+
+		for (y = draw_area.y0; y < draw_area.y1; y++) {
+			(* fill_run_callback) (offset, r, g, b, opacity, rect_width);
+			offset += rowstride;
+		}
+	}
+	else {
+		/* top */
+		offset = pixels + (draw_area.y0 * rowstride) + (draw_area.x0 * pixel_offset);
+		(* fill_run_callback) (offset, r, g, b, opacity, rect_width);
+		
+		/* bottom */
+		offset += ((rect_height - 1) * rowstride);
+		(* fill_run_callback) (offset, r, g, b, opacity, rect_width);
+	
+		for (y = draw_area.y0 + 1; y < (draw_area.y1 - 1); y++) {
+			/* left */
+			offset = pixels + (y * rowstride) + (draw_area.x0 * pixel_offset);
+			(* fill_run_callback) (offset, r, g, b, opacity, 1);
+			
+			/* right */
+			offset += (rect_width - 1) * pixel_offset;
+			(* fill_run_callback) (offset, r, g, b, opacity, 1);
+		}
+	}
+}
+
+void
+test_pixbuf_draw_rectangle (GdkPixbuf *pixbuf,
+			    int x0,
+			    int y0,
+			    int x1,
+			    int y1,
+			    int inset,
+			    gboolean filled,
+			    guint32 color,
+			    int opacity)
+{
+
+	g_return_if_fail (nautilus_gdk_pixbuf_is_valid (pixbuf));
+ 	g_return_if_fail (opacity > NAUTILUS_OPACITY_FULLY_TRANSPARENT);
+ 	g_return_if_fail (opacity <= NAUTILUS_OPACITY_FULLY_OPAQUE);
+
+	color = NAUTILUS_RGBA_COLOR_PACK (NAUTILUS_RGBA_COLOR_GET_R (color),
+					  NAUTILUS_RGBA_COLOR_GET_G (color),
+					  NAUTILUS_RGBA_COLOR_GET_B (color),
+					  opacity);
+	
+	if (x0 == -1 && y0 == -1 && x1 == -1 && y1 == -1) {
+		pixbuf_draw_rectangle (pixbuf, NULL, color, filled);
+	} else {
+		ArtIRect rect;
+
+		g_return_if_fail (x0 >= 0);
+		g_return_if_fail (y0 >= 0);
+		g_return_if_fail (x1 > x0);
+		g_return_if_fail (y1 > y0);
+	
+		rect.x0 = x0;
+		rect.y0 = y0;
+		rect.x1 = x1;
+		rect.y1 = y1;
+		
+		rect.x0 += inset;
+		rect.y0 += inset;
+		rect.x1 -= inset;
+		rect.y1 -= inset;
+		
+		g_return_if_fail (!art_irect_empty (&rect));
+		
+		pixbuf_draw_rectangle (pixbuf, &rect, color, filled);
+	}
+}
+
+void
+test_pixbuf_draw_rectangle_tiled (GdkPixbuf *pixbuf,
+				  const char *tile_name,
+				  int x0,
+				  int y0,
+				  int x1,
+				  int y1,
+				  int opacity)
+{
+	ArtIRect area;
+	GdkPixbuf *tile_pixbuf;
+
+	g_return_if_fail (nautilus_gdk_pixbuf_is_valid (pixbuf));
+	g_return_if_fail (tile_name != NULL);
+ 	g_return_if_fail (opacity > NAUTILUS_OPACITY_FULLY_TRANSPARENT);
+ 	g_return_if_fail (opacity <= NAUTILUS_OPACITY_FULLY_OPAQUE);
+
+	tile_pixbuf = test_pixbuf_new_named (tile_name, 1.0);
+
+ 	g_return_if_fail (tile_pixbuf != NULL);
+
+	if (x0 == -1 && y0 == -1 && x1 == -1 && y1 == -1) {
+		area = nautilus_gdk_pixbuf_get_frame (pixbuf);
+	} else {
+		g_return_if_fail (x0 >= 0);
+		g_return_if_fail (y0 >= 0);
+		g_return_if_fail (x1 > x0);
+		g_return_if_fail (y1 > y0);
+
+		area.x0 = x0;
+		area.y0 = y0;
+		area.x1 = x1;
+		area.y1 = y1;
+	}
+	
+	nautilus_gdk_pixbuf_draw_to_pixbuf_tiled (tile_pixbuf,
+						  pixbuf,
+						  &area,
+						  gdk_pixbuf_get_width (tile_pixbuf),
+						  gdk_pixbuf_get_height (tile_pixbuf),
+						  x0,
+						  y0,
+						  opacity,
+						  GDK_INTERP_NEAREST);
+
+	gdk_pixbuf_unref (tile_pixbuf);
+}