X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/44108fd67c22992f320e2ea2424bab38a6547473..68a53dce242a91b60aa9006db596987911082fec:/src/mewa/slot-presentations.lisp

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index 2232ec1..4254227 100644
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -30,8 +30,6 @@
 	  (<:as-html (presentation-slot-value slot instance)))))
 
 
-
-
 (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. 
-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