From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 30 Sep 2011 01:34:52 +0000 (-0700)
Subject: Initialize the size of a <fix-widget>.
X-Git-Tag: mit-scheme-pucked-9.2.12~604
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=789999b936cd2c081036da5da44cc8975ef97a6f;p=mit-scheme.git

Initialize the size of a <fix-widget>.

Realize signals often arrive before allocation signals.
---

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index fb867ccf1..b55006d76 100644
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -70,7 +70,9 @@ USA.
   (let ((alien (gobject-alien widget)))
     (let ((w (->requisition-fixnum width))
 	  (h (->requisition-fixnum height)))
-      (C-call "gtk_widget_set_size_request" alien w h))
+      (C-call "gtk_widget_set_size_request" alien w h)
+      ;; Init. size, for a realize signal arriving before an allocation.
+      (set-fix-rect-size! (fix-widget-geometry widget) w h))
     (C-call "gtk_widget_set_has_window" alien 1)) ; WILL have when realized
 
   (set-gtk-object-destroy-callback! widget)