From e76b80ff009eff698ad33d3c6a6357a6f87176dc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 30 Apr 2023 10:30:02 -0400
Subject: Perform an initial container layout on initialize.

---
 catbird/ui.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/catbird/ui.scm b/catbird/ui.scm
index 19401e4..c6470b6 100644
--- a/catbird/ui.scm
+++ b/catbird/ui.scm
@@ -135,6 +135,10 @@
 (define-class <container> (<node-2d>)
   (needs-layout? #:accessor needs-layout? #:init-value #t))
 
+(define-method (initialize (container <container>) initargs)
+  (next-method)
+  (layout container))
+
 (define-method (layout (container <container>))
   #t)
 
-- 
cgit v1.2.3