;;;; -*- lisp -*-
-(in-package :mewa)
+(in-package :lisp-on-lines)
(defcomponent presentation ()
((css-class :accessor css-class :initarg :css-class :initform nil))
(:type-name boolean))
(defmethod present-slot ((slot boolean-slot-presentation) instance)
- (<ucw:input :type "checkbox" :accessor (presentation-slot-value slot instance))
- (setf (presentation-slot-value slot instance) nil))
+ (<ucw:input :type "checkbox" :accessor (presentation-slot-value slot instance)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; strings
(unless (string= "" value)
(let ((i (parse-integer value :junk-allowed t)))
(when i
- (setf (presentation-slot-value slot instance) (parse-integer value))))))
+ (setf (presentation-slot-value slot instance) i)))))
(defmethod present-slot ((slot integer-slot-presentation) instance)
(if (editablep slot)