$OpenBSD: patch-src_gMenu_ml,v 1.1 2013/06/18 09:27:37 dcoppa Exp $

commit 1a609406b916016bdb1e81971db1d649c857a76a
Author: Jacques Garrigue <garrigue@math.nagoya-u.ac.jp>
Date:   Tue Feb 19 09:17:06 2013 +0900

fix compatibility with ocaml 4.01

--- src/gMenu.ml.orig	Thu Aug 23 12:37:48 2012
+++ src/gMenu.ml	Tue Jun 18 10:15:53 2013
@@ -87,9 +87,9 @@ end
 
 class menu_item_skel = [menu_item] pre_menu_item_skel
 
-let pack_item self ~packing ~show =
+let pack_item ?packing ?(show=true) self =
   may packing ~f:(fun f -> (f (self :> menu_item) : unit));
-  if show <> Some false then self#misc#show ();
+  if show then self#misc#show ();
   self
 
 let menu_item ?use_mnemonic ?label ?right_justified ?packing ?show () =
