[add] focusablep to interactive

1 files changed, 5 insertions, 3 deletions

diff --git a/wheelwork.lisp b/wheelwork.lisp
index d8637f1..fb4e5bb 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -70,7 +70,8 @@ necessary."
   are keyed by UNIT and hold Event-Handler instances."))
 
 (defclass/std interactive ()
-  ((listener :type (or null listener) :std nil :a))
+  ((listener :type (or null listener) :std nil :a)
+   (focusablep :std t :doc "Whether or not this object can receive application focus."))
   (:documentation "Supplies an object with a listener slot."))
 
 (defun listener-table-for (listener event-type)
@@ -339,8 +340,9 @@ necessary."
 
 
 (defun refocus-on (target &optional (app *application*))
-  "Sets focus of application to target"
-  (setf (application-focus app) target))
+  "Sets focus of application to TARGET, if TARGET is focusable. "
+  (when (focusablep target) 
+    (setf (application-focus app) target)))
 
 (defun get-focus (&optional (app *application*))
   (or (application-focus app) app))