[rep-gtk] Added GtkAccelGroup from 2.12 API

[Christopher Bratusek <chrisb src gnome org>]

commit aca8bc1f6d2f7d494003ffc45ae30e69ac02f7c2
Author: chrisb <zanghar freenet de>
Date:   Fri Jul 31 10:55:18 2009 +0200

    Added GtkAccelGroup from 2.12 API

 ChangeLog |   20 ++++++++++++
 TODO      |   11 +++++++
 gtk.defs  |  101 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 132 insertions(+), 0 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 01d3063..cf931c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -35,6 +35,26 @@
 	gtk_about_dialog_get_logo_icon_name
 	gtk_about_dialog_set_logo_icon_name
 	== GtkAboutdialog 2.12 API complete ==
+	*********** gtkaccelgroup.h ***********
+	gtk_accel_group_new
+	gtk_accel_group_lock
+	gtk_accel_group_unlock
+	gtk_accel_group_connect
+	gtk_accel_group_connect_by_path
+	gtk_accel_group_disconnect
+	gtk_accel_group_disconnect_key
+	gtk_accel_group_activate [not working]
+	gtk_accel_groups_activate
+	gtk_accel_groups_from_object
+	gtk_accel_group_find [not working]
+	gtk_accel_group_from_accel_closure
+	gtk_accelerator_parse
+	gtk_accelerator_name
+	gtk_accelerator_get_label
+	gtk_accelerator_get_default_mod_mask
+	gtk_accelerator_set_default_mod_mask
+	gtk_accel_group_query
+	== GtkAccelGroup 2.12 API complete ==
 
 
 2009-07-30  Christopher Bratusek <zanghar freenet de>
diff --git a/TODO b/TODO
index 7df4a10..647cc46 100644
--- a/TODO
+++ b/TODO
@@ -3,6 +3,17 @@
 TODO
 ====
 
+ * need support for GQuark
+
+ * need support for GtkAccelKeyFindFunc
+
+ * need support for GtkAccelGroupEntry
+
+ * need rep_to_static_string 
+
+TODO (old)
+====
+
  * fix the signal_connect_object stuff in libglade-support.c
 
  * support the `define-struct' and `define-ptype' defs
diff --git a/gtk.defs b/gtk.defs
index 835fab2..23dbd99 100644
--- a/gtk.defs
+++ b/gtk.defs
@@ -443,8 +443,109 @@
    (GtkWidget parent)
    (SCM allocation (getter sgtk_gtk_widget_get_allocation))))
 
+;; GtkAccelGroup
+
 (define-object GtkAccelGroup (GObject))
 
+(define-func gtk_accel_group_new
+  GtkAccelGroup
+  ())
+
+(define-func gtk_accel_group_lock
+  none
+  ((GtkAccelGroup group)))
+
+(define-func gtk_accel_group_unlock
+  none
+  ((GtkAccelGroup group)))
+
+(define-func gtk_accel_group_connect
+  none
+  ((GtkAccelGroup group)
+   (uint accel_key)
+   (GdkModifierType modifier)
+   (GtkAccelFlags flags)
+   (gclosure closure)))
+
+(define-func gtk_accel_group_connect_by_path
+  none
+  ((GtkAccelGroup group)
+   (string path)
+   (gclosure closure)))
+
+(define-func gtk_accel_group_disconnect
+  bool
+  ((GtkAccelGroup group)
+   (gclosure closure)))
+
+(define-func gtk_accel_group_disconnect_key
+  bool
+  ((GtkAccelGroup group)
+   (uint key)
+   (GdkModifierType modifier)))
+
+;; XXX GQuark not supported
+;(define-func gtk_accel_group_activate
+;  bool
+;  ((GtkAccelGroup group)
+;   (GQuark quark)
+;   (GObject acceleratable)
+;   (uint key)
+;   (GdkModifierType modifier)))
+
+(define-func gtk_accel_groups_activate
+  bool
+  ((GObject object)
+   (uint key)
+   (GdkModifierType modifier)))
+
+(define-func gtk_accel_groups_from_object
+  (slist string)
+  ((GObject object)))
+
+;; XXX need support for GtkAccelGroupFindFunc
+;(define-func gtk_accel_group_find
+;  GtkAccelKey
+;  ((GtkAccelGroup group)
+;   (GtkAccelGroupFindFunc findfunc)
+;   (gpointer data)))
+
+(define-func gtk_accel_group_from_accel_closure
+  GtkAccelGroup
+  ((gclosure closure)))
+
+(define-func gtk_accelerator_parse
+  none
+  ((string accel)
+   ((ret uint) key)
+   ((ret GdkModifierType) modifier)))
+
+(define-func gtk_accelerator_name
+  string
+  ((uint key)
+   (GdkModifierType modifier)))
+
+(define-func gtk_accelerator_get_label
+  string
+  ((uint key)
+   (GdkModifierType modifier)))
+
+(define-func gtk_accelerator_get_default_mod_mask
+  uint
+  ())
+
+(define-func gtk_accelerator_set_default_mod_mask
+  none
+  ((GdkModifierType modifier)))
+
+;; XXX need support for GtkAccelGroupEntry
+(define-func gtk_accel_group_query
+  none
+  ((GtkAccelGroup group)
+   (uint key)
+   (GdkModifierType modifier)
+   ((ret uint) entries)))
+
 (define-object GtkStyle (GObject))
 
 (define-func gtk_style_get_white_interp