From ae2e47be672493d4a83ede984c7c144a03818e23 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 24 Jul 2022 13:24:46 -0500
Subject: [add] cleanup for menu and interactive

---
 gui/menus.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gui')

diff --git a/gui/menus.lisp b/gui/menus.lisp
index 6b3feb9..25abd7b 100644
--- a/gui/menus.lisp
+++ b/gui/menus.lisp
@@ -9,6 +9,9 @@
           :doc "The item that is focused in this menu, if any.")
    (region :std (error "Menus require an explicit region"))))
 
+(defmethod cleanup :after ((menu menu))
+  (loop for item in (menu-items menu) do (cleanup item)))
+
 (defmethod initialize-instance :after ((menu menu) &key)
   (with-slots (base-width base-height region) menu 
     (setf base-width (width region)
-- 
cgit v1.2.3