From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 13 Apr 2013 17:47:58 +0000 (-0700)
Subject: Added new, Gtk3 window type hints to gtk-window-set-type-hint.
X-Git-Tag: mit-scheme-pucked-9.2.12~511
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=478bb20385be61fc4a97091c5977bbd79b74e8d3;p=mit-scheme.git

Added new, Gtk3 window type hints to gtk-window-set-type-hint.
---

diff --git a/src/gtk/Includes/gdkwindow.cdecl b/src/gtk/Includes/gdkwindow.cdecl
index 639d9656b..0b1121b8b 100644
--- a/src/gtk/Includes/gdkwindow.cdecl
+++ b/src/gtk/Includes/gdkwindow.cdecl
@@ -48,7 +48,13 @@ gdk/gdkwindow.h |#
 	  (GDK_WINDOW_TYPE_HINT_SPLASHSCREEN)
 	  (GDK_WINDOW_TYPE_HINT_UTILITY)
 	  (GDK_WINDOW_TYPE_HINT_DOCK)
-	  (GDK_WINDOW_TYPE_HINT_DESKTOP)))
+	  (GDK_WINDOW_TYPE_HINT_DESKTOP)
+	  (GDK_WINDOW_TYPE_HINT_DROPDOWN_MENU)
+	  (GDK_WINDOW_TYPE_HINT_POPUP_MENU)
+	  (GDK_WINDOW_TYPE_HINT_TOOLTIP)
+	  (GDK_WINDOW_TYPE_HINT_NOTIFICATION)
+	  (GDK_WINDOW_TYPE_HINT_COMBO)
+	  (GDK_WINDOW_TYPE_HINT_DND)))
 
 (typedef GdkWMDecoration
 	 (enum
diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index fa0107e81..1ae1bba35 100644
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -847,6 +847,12 @@ USA.
     ((UTILITY) (C-enum "GDK_WINDOW_TYPE_HINT_UTILITY"))
     ((DOCK) (C-enum "GDK_WINDOW_TYPE_HINT_DOCK"))
     ((DESKTOP) (C-enum "GDK_WINDOW_TYPE_HINT_DESKTOP"))
+    ((DROPDOWN-MENU) (C-enum "GDK_WINDOW_TYPE_HINT_DROPDOWN_MENU"))
+    ((POPUP-MENU) (C-enum "GDK_WINDOW_TYPE_HINT_POPUP_MENU"))
+    ((TOOLTIP) (C-enum "GDK_WINDOW_TYPE_HINT_TOOLTIP"))
+    ((NOTIFICATION) (C-enum "GDK_WINDOW_TYPE_HINT_NOTIFICATION"))
+    ((COMBO) (C-enum "GDK_WINDOW_TYPE_HINT_COMBO"))
+    ((DND) (C-enum "GDK_WINDOW_TYPE_HINT_DND"))
     (else (error:wrong-type-argument object "a GdkWindow type hint" operator))))
 
 (define (gtk-window-get-default-size window receiver)