aboutsummaryrefslogtreecommitdiffhomepage
path: root/gui/menus.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'gui/menus.lisp')
-rw-r--r--gui/menus.lisp3
1 files changed, 3 insertions, 0 deletions
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)