From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 19 Dec 2012 00:39:05 +0000 (-0700)
Subject: Added gtk-widget-queue-resize and gtk-widget-queue-resize-no-redraw.
X-Git-Tag: mit-scheme-pucked-9.2.12~544
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a06801ce25f93338ee8d2ad61fd835d105ce2809;p=mit-scheme.git

Added gtk-widget-queue-resize and gtk-widget-queue-resize-no-redraw.
---

diff --git a/doc/gtk/gtk.texinfo b/doc/gtk/gtk.texinfo
index 715ac262a..ce619c088 100644
--- a/doc/gtk/gtk.texinfo
+++ b/doc/gtk/gtk.texinfo
@@ -1031,8 +1031,19 @@ preference and window manager support.
 @end deffn
 
 @deffn Procedure gtk-widget-queue-draw widget
-Schedules a complete re-draw of @var{widget}.  (An expose event will be
-delivered when the toolkit is idle.)
+The area occupied by @var{widget} is invalidated.  An expose event for
+the entire area will be delivered when the toolkit is idle.
+@end deffn
+
+@deffn Procedure gtk-widget-queue-resize widget
+Flags @var{widget} to have its size renegotiated and invalidates its
+area.  An expose event for the entire area will be delivered when the
+toolkit is idle.
+@end deffn
+
+@deffn Procedure gtk-widget-queue-resize-no-redraw widget
+Flags @var{widget} to have its size renegotiated but does @emph{not}
+invalidate its entire area.
 @end deffn
 
 @deffn Procedure gtk-widget-get-pango-context widget
diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index ae5a91e41..b144bf661 100644
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -179,6 +179,14 @@ USA.
   (guarantee-gtk-widget widget 'gtk-widget-queue-draw)
   (C-call "gtk_widget_queue_draw" (gobject-alien widget)))
 
+(define (gtk-widget-queue-resize widget)
+  (guarantee-gtk-widget widget 'gtk-widget-queue-resize)
+  (C-call "gtk_widget_queue_resize" (gobject-alien widget)))
+
+(define (gtk-widget-queue-resize-no-redraw widget)
+  (guarantee-gtk-widget widget 'gtk-widget-queue-resize-no-redraw)
+  (C-call "gtk_widget_queue_resize_no_redraw" (gobject-alien widget)))
+
 (define (gtk-widget-get-pango-context widget)
   (guarantee-gtk-widget widget 'gtk-widget-get-pango-context)
   (C-call "gtk_widget_get_pango_context"
diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index e3ca8737d..16dace01a 100644
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -151,6 +151,8 @@ USA.
 	  gtk-widget-show-all
 	  gtk-widget-error-bell
 	  gtk-widget-queue-draw
+	  gtk-widget-queue-resize
+	  gtk-widget-queue-resize-no-redraw
 	  gtk-widget-get-pango-context
 	  gtk-widget-create-pango-layout
 	  gtk-widget-get-size