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