X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/60a24293adb9a76f8530175efb05e24a7f953e42..87e47dd67949ba2d7e8e95912517d7d6366a303c:/src/standard-attributes.lisp

diff --git a/src/standard-attributes.lisp b/src/standard-attributes.lisp
index d855e9d..1eb244f 100644
--- a/src/standard-attributes.lisp
+++ b/src/standard-attributes.lisp
@@ -3,11 +3,11 @@
 (defattribute image ()
   ())
 
-(defdisplay (:description (buttons (eql 'image-editor-buttons)))
+(defdisplay object (:description (buttons (eql 'image-editor-buttons)))
   (<ucw:a :action (ok component object)
 	  (<:as-html "select this image")))
 
-(defdisplay (:description (image image))
+(defdisplay object (:description (image image))
   (<:img
    :class (or (getp :css-class) "lol-image") 
    :src (arnesi:strcat
@@ -15,7 +15,7 @@
 	 (escape-as-uri
 	  (attribute-value object image)))))
 
-(defdisplay (:description (image image)
+(defdisplay object (:description (image image)
 	     :in-layer editor)
   (<:div
    :class "lol-image-thumbnails"