Merge branch 'refactor-with-def'

1 files changed, 7 insertions, 4 deletions

diff --git a/src/interactive/interactive.lisp b/src/interactive/interactive.lisp
index 11bc5ca..74a22d1 100644
--- a/src/interactive/interactive.lisp
+++ b/src/interactive/interactive.lisp
@@ -2,10 +2,13 @@
 
 (in-package #:wheelwork)
 
-(defclass/std interactive ()
-  ((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."))
+(def:class interactive ()
+  (listener :type (or null listener) :initform nil)
+
+  ((focusablep "Whether or not this object can receive application focus")
+   :type boolean :initform nil)
+
+  :documentation "Supplies an object with an event listener")
 
 (defun remove-all-handlers (interactive)
   (loop