From: Matt Birkholz Date: Fri, 16 Sep 2011 18:53:52 +0000 (-0700) Subject: Pull update-name and update-widget-buffer into update-widgets. X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~98 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=966a370fe3aa81d55e70994cdfc84af51c3312e9;p=mit-scheme.git Pull update-name and update-widget-buffer into update-widgets. --- diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm index f87fa65f6..37a57af6e 100644 --- a/src/gtk-screen/gtk-screen.scm +++ b/src/gtk-screen/gtk-screen.scm @@ -735,6 +735,7 @@ USA. (top-children (gtk-container-reverse-children toplevel))) (define-integrable (main) + (update-name screen) (if (null? top-children) (let ((top-box (gtk-vbox-new #f 0))) (gtk-container-add toplevel top-box) @@ -742,6 +743,7 @@ USA. (re-pack-windows! (%reversed-children root) top-box '() "--") (%trace "; -show-init "toplevel"\n") (gtk-widget-grab-focus (typein-widget screen)) + (for-each-text-widget screen update-widget-buffer) (gtk-widget-show-all toplevel) (%trace "; update-widgets init done\n")) (begin @@ -753,6 +755,7 @@ USA. top-box (gtk-container-children top-box) "--") (%trace "; -show-all "toplevel"\n") + (for-each-text-widget screen update-widget-buffer) (gtk-widget-show-all toplevel) (%trace "; update-widgets done\n"))))) @@ -782,8 +785,6 @@ USA. (gtk-vbox? widget) (gtk-hbox? widget))) (%trace "; "prefix"matched "window" to "widget"\n") - (%trace "; "prefix"children right-to-left: " - (%reversed-children window)"\n") (re-pack-windows! (%reversed-children window) widget (gtk-container-children widget)