void
kiba_set_icon_geometry  (Window    xwindow,
                         int       x,
                         int       y,
                         int       width,
                         int       height)
{
  gulong data[4];

  data[0] = x;
  data[1] = y;

  data[2] = width;
  data[3] = height;

  gdk_error_trap_push ();

  XChangeProperty (gdk_display, xwindow,
		   kiba_get_atom (gdk_display, "_NET_WM_ICON_GEOMETRY"),
		   XA_CARDINAL, 32, PropModeReplace,
		   (guchar *)&data, 4);

  gdk_error_trap_pop ();
}