From 966a370fe3aa81d55e70994cdfc84af51c3312e9 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 16 Sep 2011 11:53:52 -0700 Subject: [PATCH] Pull update-name and update-widget-buffer into update-widgets. --- src/gtk-screen/gtk-screen.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.25.1