Icon should be a value-component. Idk why it wasn't.

Shirakumo · Sep 9, 2024 · af8e94e · af8e94e
1 parent ab6832a
commit af8e94e
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/components/base.lisp b/components/base.lisp
@@ -1,8 +1,5 @@
 (in-package #:org.shirakumo.alloy)
 
-(defclass icon (component)
-  ())
-
 (defclass value-component (component)
   ((value-function :initarg :value-function :initform 'value :reader value-function)))
 
@@ -63,3 +60,8 @@
 
 (defmethod enter ((string string) (layout layout) &rest args)
   (apply #'enter (make-instance 'label* :value string) layout args))
+
+(defclass icon (value-component)
+  ())
+
+(defclass icon* (icon direct-value-component) ())