let arrow_pix () =
  let gdk_pix = GDraw.pixmap_from_xpm_d ~data: arrow
      ~colormap: (Gdk.Color.get_system_colormap ())
      ()
  in
  let pix = GMisc.pixmap gdk_pix () in
  pix