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 715ac262adbd8bfeb592847a5b4fe150406dcf93..ce619c08865c50cf78c66c4d3e5855813bbc863f 100644 (file)
--- 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 ae5a91e41ff09027a73083eda72446156bcfa4e8..b144bf6616ed617de40400cd902f0d6bab20b97c 100644 (file)
--- 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 e3ca8737d4245d58fb1e97857c10e099b76ded36..16dace01ae62b0704799a1ee3494e57035e64862 100644 (file)
--- 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