feature/pgtk 83c35b8 1/2: * src/pgtkfns.c: Do not show an empty frame prematurely

[Yuuki Harano]

branch: feature/pgtk
commit 83c35b86da233870231e30d114ffa4640eb10081
Author: Jindřich Makovička <makovick@gmail.com>
Commit: Yuuki Harano <masm+github@masm11.me>

    * src/pgtkfns.c: Do not show an empty frame prematurely
    
    Set only the child widgets visible, leave the outer window
    to pgtk_make_frame_visible .
---
 src/pgtkfns.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index ceff279..0f9f2e4 100644
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -1693,8 +1693,13 @@ This function is an internal primitive--use `make-frame' 
instead.  */ )
       unblock_input ();
     }
 
-  if (FRAME_GTK_OUTER_WIDGET (f))
-    gtk_widget_show_all (FRAME_GTK_OUTER_WIDGET (f));
+  if (FRAME_GTK_OUTER_WIDGET (f)) {
+    GList *w = gtk_container_get_children(GTK_CONTAINER(FRAME_GTK_OUTER_WIDGET 
(f)));
+    for (; w != NULL; w = w->next)
+      {
+       gtk_widget_show_all (GTK_WIDGET(w->data));
+      }
+  }
 
   gui_default_parameter (f, parms, Qno_focus_on_map, Qnil,
                         NULL, NULL, RES_TYPE_BOOLEAN);