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 f87fa65f6eed78fdf92d14d6c960835f80391c49..37a57af6e8ecdc7c0955281503536fef34a103f3 100644 (file)
--- 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)