aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gui/menus.lisp3
-rw-r--r--src/interactive/interactive.lisp8
2 files changed, 11 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)
diff --git a/src/interactive/interactive.lisp b/src/interactive/interactive.lisp
index ceacf1b..11bc5ca 100644
--- a/src/interactive/interactive.lisp
+++ b/src/interactive/interactive.lisp
@@ -7,6 +7,14 @@
(focusablep :std t :doc "Whether or not this object can receive application focus."))
(:documentation "Supplies an object with a listener slot."))
+(defun remove-all-handlers (interactive)
+ (loop
+ for type in '(keydown keyup mousedown mouseup mousemotion mousewheel focus blur perframe)
+ do (remove-handler interactive type)))
+
+(defmethod cleanup :after ((ob interactive))
+ (remove-all-handlers ob))
+
(defun add-handler (interactive handler)
"Adds HANDLER to INTERACTIVE. HANDLER is an instance of
WHEELWORK::EVENT-HANDLER, as most readily constructed by using the