+(defcomponent mewa-viewer (mewa-object-presentation)
+ ()
+ (:default-initargs
+ :global-properties '(:editablep nil)))
+
+(defcomponent mewa-editor (mewa-object-presentation)
+ ()
+ (:default-initargs
+ :global-properties '(:editablep t)))
+
+(defcomponent mewa-creator (mewa-editor)
+ ())
+