From: Jindřich Makovička <makovick@gmail.com>
Date: Sat, 29 May 2021 12:53:20 +0000 (+0200)
Subject: * src/pgtkfns.c: Do not show an empty frame prematurely
X-Git-Tag: emacs-29.0.90~3688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83c35b8;p=emacs.git

* 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 .
---

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index ceff279ad02..0f9f2e4c83f 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);