+
+(defslot-presentation inline-slot-presentation (mewa-relation-slot-presentation)
+ ()
+ (:type-name inline))
+
+(defmethod present-slot ((slot inline-slot-presentation) instance)
+ (<:fieldset
+ (<:legend (<:as-html (label slot)))
+ (<ucw:render-component :component (mewa:make-presentation (meta-model::explode-foreign-key instance (slot-name slot)) :type :editor))))
+
+(defmethod mewa::present-slot-as-row ((self mewa::mewa-object-presentation) (slot inline-slot-presentation))
+ (<:td :colspan 2
+ (present-slot slot (instance self))))
\ No newline at end of file