kc3-lang/kc3

diff --git a/gtk4/window.c b/gtk4/window.c
index 6496fd1..72eb94c 100644
--- a/gtk4/window.c
+++ b/gtk4/window.c
@@ -34,3 +34,8 @@ void kc3_gtk4_window_set_title (GtkWindow **window, const s_str *title)
   gtk_window_set_title(*window, title->ptr.pchar);
 }
 
+void kc3_gtk4_window_set_default_size (GtkWindow **window, uw width,
+				       uw height)
+{
+  gtk_window_set_default_size(*window, width, height);
+}
diff --git a/gtk4/window.h b/gtk4/window.h
index 6151eb5..4738e26 100644
--- a/gtk4/window.h
+++ b/gtk4/window.h
@@ -23,5 +23,6 @@ GtkWidget ** kc3_gtk4_window_new (GtkWidget **window);
 /* Operators. */
 void kc3_gtk4_window_present (GtkWindow **window);
 void kc3_gtk4_window_set_title (GtkWindow **window, const s_str *title);
+void kc3_gtk4_set_default_size(GtkWindow **window, uw width, uw height);
 
 #endif /* KC3_GTK4_WINDOW_H */