X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/fce59b368550e32a6db608fb8e10f5e2f2e4f6ec..9f2bdea87849c3feab566d6cd49c67bb31cc1f36:/src/slot-presentations.lisp?ds=sidebyside

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index 8bd517c..19927f9 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -14,19 +14,22 @@
 ;;;; ** Textarea Slot Presentation
 
 (defslot-presentation text-slot-presentation ()
-  ((rows :initarg :rows :accessor rows :initform 25)
+  ((rows :initarg :rows :accessor rows :initform 5)
    (columns :initarg :columns :accessor columns :initform 40)
    (escape-html-p :initarg :escape-html-p :accessor escape-html-p :initform nil))
   (:type-name text))
 
 (defmethod present-slot ((slot text-slot-presentation) instance)
-  (if (editablep slot)
-      (<ucw:textarea :accessor (presentation-slot-value slot instance)
-		     :rows (rows slot)
-		     :cols (columns slot))
-      (if (escape-html-p slot)
-	  (<:as-html (presentation-slot-value slot instance))
-	  (<:as-is (presentation-slot-value slot instance)))))
+    (if (editablep slot)
+	(<ucw:textarea
+	 :accessor (presentation-slot-value slot instance)
+	 :reader (or (presentation-slot-value slot instance)
+		 "")
+	 :rows (rows slot)
+	 :cols (columns slot))
+	(if (escape-html-p slot)
+	    (<:as-html (presentation-slot-value slot instance))
+	    (<:as-is (presentation-slot-value slot instance))))))
 
 
 (defcomponent mewa-slot-presentation ()