X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/55212af123daea1d86d31da21cc1bee77651fb81..ac40261ed88a985bfbd058766634ec7fa730f467:/gtk/gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index 29c6658..ac439a7 100644
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtktypes.lisp,v 1.37 2005/04/23 16:48:52 espen Exp $
+;; $Id: gtktypes.lisp,v 1.38 2005/04/24 13:30:40 espen Exp $
 
 (in-package "GTK")
 
@@ -1128,3 +1128,29 @@
     :initarg :mime-type
     :type string))
   (:metaclass struct-class))
+
+
+(defclass accel-key (struct)
+  ((key
+    :allocation :alien
+    :type unsigned-int)
+   (modifiers
+    :allocation :alien
+    :type gdk:modifier-type)
+   (flags
+    :allocation :alien
+    :type (unsigned 16)))
+  (:metaclass struct-class))
+
+(defclass accel-group-entry (struct)
+  ((key
+    :allocation :alien
+    :setter nil
+    :type (inlined accel-key))
+   (gclosure
+    :allocation :alien
+    :type gclosure)
+   (accel_path_quark
+    :allocation :alien
+    :type quark))
+  (:metaclass struct-class))