Add RENDER-WITH and don't make component renderable.

component.lisp

@@ -6,5 +6,5 @@
 
 (in-package #:org.shirakumo.alloy)
 
-(defclass component (renderable)
+(defclass component ()
   ())

layout.lisp

@@ -59,18 +59,15 @@
 (defmethod register :after ((element layout-entry) (renderer renderer))
   (register (component element) renderer))
 
-(defmethod render ((renderer renderer) (element layout-entry))
-  (render renderer (component element)))
-
-(defmethod maybe-render ((element layout-entry) (renderer renderer))
-  (maybe-render (component element) renderer))
-
 (defmethod handle ((event event) (element layout-entry) ui)
   (handle event (component element) ui))
 
 (defmethod handle :after ((event pointer-down) (element layout-entry) ui)
   (activate (focus-element (component element) ui)))
 
+(defmethod render ((renderer renderer) (element layout-entry))
+  (render-with renderer element (component element)))
+
 (defmethod suggest-bounds (extent (element layout-entry))
   (suggest-bounds extent (component element)))
 

package.lisp

@@ -128,6 +128,7 @@
    #:mark-for-render
    #:render
    #:maybe-render
+   #:render-with
    #:renderer
    #:renderable)
   ;; ui.lisp

renderer.lisp

@@ -15,6 +15,7 @@
 (defgeneric mark-for-render (renderable))
 (defgeneric render (renderer renderable))
 (defgeneric maybe-render (renderer renderable))
+(defgeneric render-with (renderer renderable thing))
 
 (defclass renderer ()
   ((allocated-p :initform NIL :reader allocated-p)))