summaryrefslogtreecommitdiffstats
path: root/testsuite/external/lablgtk-2.16.0.patch
blob: c16e10cc4c61f7b1592bc3ea0c62255165ec55d4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
--- lablgtk-2.16.0.orig/src/gMenu.ml	2012-08-23 12:37:48.000000000 +0200
+++ lablgtk-2.16.0/src/gMenu.ml	2013-02-18 20:12:27.000000000 +0100
@@ -87,7 +87,7 @@
 
 class menu_item_skel = [menu_item] pre_menu_item_skel
 
-let pack_item self ~packing ~show =
+let pack_item self ?packing ?show =
   may packing ~f:(fun f -> (f (self :> menu_item) : unit));
   if show <> Some false then self#misc#show ();
   self
--- lablgtk-2.16.0.orig/src/gFile.ml	2012-08-23 12:37:48.000000000 +0200
+++ lablgtk-2.16.0/src/gFile.ml	2013-02-18 20:13:37.000000000 +0100
@@ -179,7 +179,7 @@
 	 FileChooser.P.file_system_backend backend
 	 [ Gobject.param FileChooser.P.action action ]) in
   let o = new chooser_widget w in
-  GObj.pack_return o ?packing ?show
+  GObj.pack_return o ~packing ~show
 
 class chooser_button_signals obj = object
   inherit GContainer.container_signals_impl obj