HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed ordering in get-foreign-instances
[clinton/lisp-on-lines.git]
/
src
/
presentations.lisp
diff --git
a/src/presentations.lisp
b/src/presentations.lisp
index
aea3afd
..
901548a
100644
(file)
--- a/
src/presentations.lisp
+++ b/
src/presentations.lisp
@@
-1,10
+1,15
@@
+(declaim (optimize (speed 0) (space 3) (safety 0)))
(in-package :lisp-on-lines)
(in-package :lisp-on-lines)
+
+(defmethod render ((self mewa))
+ (lol::present self))
+
(defaction edit-instance ((self mewa))
(call-presentation (instance self) :type :editor))
;;;one-line objects
(defaction edit-instance ((self mewa))
(call-presentation (instance self) :type :editor))
;;;one-line objects
-(defcomponent mewa-one-line-presentation (mewa one-line-presentation)
+(defcomponent mewa-one-line-presentation (mewa
lol::
one-line-presentation)
()
(:default-initargs
:attributes-getter #'one-line-attributes-getter
()
(:default-initargs
:attributes-getter #'one-line-attributes-getter
@@
-15,7
+20,7
@@
(meta-model::list-keys (instance self))))
;;;objects
(meta-model::list-keys (instance self))))
;;;objects
-(defcomponent mewa-object-presentation (mewa object-presentation)
+(defcomponent mewa-object-presentation (mewa
lol::
object-presentation)
((instance :accessor instance :initarg :instance :initform nil)))
(defcomponent mewa-viewer (mewa-object-presentation)
((instance :accessor instance :initarg :instance :initform nil)))
(defcomponent mewa-viewer (mewa-object-presentation)
@@
-36,7
+41,7
@@
(dolist (slot (slots pres))
(<:tr :class "presentation-slot-row"
(present-slot-as-row pres slot))))
(dolist (slot (slots pres))
(<:tr :class "presentation-slot-row"
(present-slot-as-row pres slot))))
-
(render-options pres (instance pres)))
+ (render-options pres (instance pres)))
(defmethod present-slot-as-row ((pres mewa-object-presentation) (slot slot-presentation))
(<:td :class "presentation-slot-label" (<:as-html (label slot)))
(defmethod present-slot-as-row ((pres mewa-object-presentation) (slot slot-presentation))
(<:td :class "presentation-slot-label" (<:as-html (label slot)))
@@
-101,8
+106,7
@@
:value "view"))))
(dolist (slot (slots listing))
(<:td :class "data-cell" (present-slot slot object)))
:value "view"))))
(dolist (slot (slots listing))
(<:td :class "data-cell" (present-slot slot object)))
- (<:td :class "index-number-cell")
- ))
+ (<:td :class "index-number-cell")))
(defmethod get-all-instances ((self mewa-list-presentation))
(instances self))
(defmethod get-all-instances ((self mewa-list-presentation))
(instances self))