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
fixes for ucw+interpreter
[clinton/lisp-on-lines.git]
/
src
/
mewa
/
slot-presentations.lisp
diff --git
a/src/mewa/slot-presentations.lisp
b/src/mewa/slot-presentations.lisp
index
2232ec1
..
4254227
100644
(file)
--- a/
src/mewa/slot-presentations.lisp
+++ b/
src/mewa/slot-presentations.lisp
@@
-30,8
+30,6
@@
(<:as-html (presentation-slot-value slot instance)))))
(<:as-html (presentation-slot-value slot instance)))))
-
-
(defcomponent mewa-slot-presentation ()
((slot-name :accessor slot-name
:initarg :slot-name
(defcomponent mewa-slot-presentation ()
((slot-name :accessor slot-name
:initarg :slot-name
@@
-42,7
+40,8
@@
:initform nil
:documentation
"When nil, the instance is syncronised with the database.
:initform nil
:documentation
"When nil, the instance is syncronised with the database.
-When T, only the default value for primary keys and the joins are updated."))
+When T, only the default value for primary keys and the joins are updated.")
+ (show-label-p :accessor show-label-p :initarg :show-label-p :initform t))
(:documentation "The superclass of all Mewa slot presentations"))
;;;; this has to be in the eval when i would think
(:documentation "The superclass of all Mewa slot presentations"))
;;;; this has to be in the eval when i would think