DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
        s=beta; d=gmail.com;
        h=received:message-id:date:from:to:subject:mime-version:content-type;
        b=gKFmlSF4D8qPePNE0Wm9PZ5WSLh+gLfMVPUcjyyt07LzA7kI/Oa6uuQKsTP2DwvSed1EWBud5quXRtj91kP61HIC64Ztd2qOYXuHmD70THavYsqGmTqB+g/OuMt4BsKV6GvXrClQ25cxlePWaLSiGHqbzo8OqhO6OLv943DYsIc=
Message-ID: <7fae95590512180735o1a7225d6i at mail.gmail.com>
Date: Mon, 19 Dec 2005 00:35:03 +0900
From: Keita Yamaguchi <keita.yamaguchi at gmail.com>
To: lablgtk ML <lablgtk at math.nagoya-u.ac.jp>
Subject: lablgladecc patch
MIME-Version: 1.0
Content-Type: multipart/mixed; 
	boundary="----=_Part_20229_930703.1134920103198"

------=_Part_20229_930703.1134920103198
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

Sorry I forgot the patch file.

---
Keita Yamaguchi

------=_Part_20229_930703.1134920103198
Content-Type: application/octet-stream; name=lablgladecc.path
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="lablgladecc.path"

--- lablgladecc.ml.orig	2004-07-09 22:52:21.000000000 +0900
+++ lablgladecc.ml	2005-12-18 19:31:38.000000000 +0900
@@ -104,6 +104,21 @@
   "GtkFontSelectionDialog", ("GtkWindow.FontSelectionDialog",
                              "GWindow.font_selection_dialog");
   "GtkPlug", ("GtkWindow.Plug", "GWindow.plug");
+  "GtkAboutDialog", ("GtkWindow.AboutDialog", "GWindow.about_dialog");
+  "GtkMessageDialog", ("GtWindow.MessageDialog", "GWindow.message_dialog");
+  "GtkColorSelectionDialog", ("GtkWindow.ColorSelectionDialog", "GWindow.color_selection_dialog");
+  "GtkFileChooserButton", ("GtkFile.FileChooserButton", "GFile.chooser_button");
+  "GtkColorButton", ("GtkButton.ColorButton", "GButton.color_button");
+  "GtkFontButton", ("GtkButton.FontButton", "GButton.font_button");
+  "GtkExpander", ("GtkBin.Expander", "GBin.expander");
+  "GtkToolItem", ("GtkButton.ToolItem", "GButton.tool_item");
+  "GtkToolButton", ("GtkButton.ToolButton", "GButton.tool_button");
+  "GtkToggleToolButton", ("GtkButton.ToggleToolButton", "GButton.toggle_tool_button");
+  "GtkRadioToolButton", ("GtkButton.RadioToolButton", "GButton.radio_tool_button");
+  "GtkSeparatorToolItem", ("GtkButton.SeparatorToolItem", "GButton.separator_tool_item");
+  "GtkIconView", ("GtkTree.IconView", "GTree.icon_view");
+  "GtkComboBox", ("GtkEdit.ComboBox", "GEdit.combo_box");
+  "GtkComboBoxEntry", ("GtkEdit.ComboBoxEntry", "GEdit.combo_box_entry");
 ] 
 
 open Xml_lexer
@@ -221,6 +236,7 @@
 let embed = ref false
 let trace = ref false
 let output_classes = ref []
+let check_all = ref true
 
 let output_wrapper ~file wtree =
   printf "class %s %s?domain ?autoconnect(*=true*) () =\n"
@@ -320,7 +336,7 @@
       file;
     if !embed then printf "let data = \"%s\"\n\n" (String.escaped data);
     parse_body ~file lexbuf;
-    output_check_all ()
+    if !check_all then output_check_all ()
   with Failure s ->
     eprintf "lablgladecc: in %s, before char %d, %s\n"
       file (Lexing.lexeme_start lexbuf) s
@@ -347,7 +363,8 @@
       "-root", Arg.String (fun s -> roots := s :: !roots),
       "<widget>  generate only a wrapper for <widget> and its children";
       "-hide-default", Arg.Set hide_default_names, 
-        " hide widgets with default names like 'label23'"
+        " hide widgets with default names like 'label23'";
+      "-no-check-all", Arg.Clear check_all, " no check all";
     ]
     (fun s -> files := s :: !files)
     "lablgladecc2 [<options>] [<file.glade>]";

------=_Part_20229_930703.1134920103198--