Commit 947e713f authored by Dave Cooper's avatar Dave Cooper
Browse files

moved messages to input-slots to avoid reserved word errors

parent 335b6561
......@@ -29,7 +29,7 @@
(the-object (make-object type) print-pdf))
(define-object document (base-object)
:computed-slots
:input-slots
((pages nil))
:functions
......
......@@ -115,8 +115,8 @@ than this default, the content will be cropped."
;;:objects ((box :type 'box))
:functions
((content ())))
:input-slots
((content nil)))
;; FLAG -- document and remove funcall when cl-typesetting stabilized.
......
......@@ -113,6 +113,19 @@ page section, then you do not have to generate the :div tag yourself - the main-
will be a string of HTML which is wrapped in the correct :div tag already."
dom-id (the base64-encoded-root-path))
("List of keyword symbols. Messages corresponding to form fields which could
be missing from form submission (e.g. checkbox fields). Defaults to the names
of any children or hidden-children of type menu-form-control or
checkbox-form-control."
possible-nils (mapcar #'(lambda(object) (the-object object field-name))
(remove-if-not #'(lambda(child)
(or (and (typep child 'menu-form-control)
(the-object child possible-nil?))
(and (typep child 'checkbox-form-control)
(the-object child possible-nil?))))
(append (the children) (the hidden-children)))))
)
......@@ -239,17 +252,7 @@ ignored. If this is specified as nil, then (the preset?) of individual
form-controls (default of these is also nil) will be respected. Default is nil."
preset-all? nil)
("List of keyword symbols. Messages corresponding to form fields which could
be missing from form submission (e.g. checkbox fields). Defaults to the names
of any children or hidden-children of type menu-form-control or
checkbox-form-control."
possible-nils (mapcar #'(lambda(object) (the-object object field-name))
(remove-if-not #'(lambda(child)
(or (and (typep child 'menu-form-control)
(the-object child possible-nil?))
(and (typep child 'checkbox-form-control)
(the-object child possible-nil?))))
(append (the children) (the hidden-children))))))
)
......
......@@ -320,18 +320,20 @@ The error was: "
(:pre (:prin1-safe (cons 'the (reverse (the root-path))))))))
(:p "Click "
(:b (the root (write-self-link :display-string "Here")))
" to visit the root of the site hierarchy.")))))
" to visit the root of the site hierarchy."))))))
:input-slots
("Void. This is an empty function by default, but can be overridden in
(("Void. This is an empty function by default, but can be overridden in
a user specialization of base-html-sheet, to do some processing before the
header-plist is evaluated and before the HTTP response is actually initiated, but after
the cookies-received have been set."
process-cookies! ())
process-cookies! nil)
("Void. This is an empty function by default, but can be overridden in
a user specialization of base-html-sheet, to do some processing before the
header-plist is evaluated and before the HTTP response is actually initiated."
before-response! ())
before-response! nil)
("Void. This is an empty function by default, but can be overridden in
......@@ -344,31 +346,29 @@ the <tt>model-inputs</tt> function. It is not always reliable to do processing
in the <tt>model-inputs</tt> function, since some slots which depend on your
intended modifications may already have been evaluated by the time the
<tt>model-inputs</tt> function runs."
before-present! ())
before-present! nil)
("Void. This is an empty function by default, but can be overridden in
the respondent of a form, to do some processing after the respondent's
<tt>write-html-sheet</tt> function runs to present the object."
after-present! ())
after-present! nil)
("Void. This is an empty function by default, but can be overridden in
the requestor of a form, to do some processing before the requestor's form
values are set into the specified bashee."
before-set! ())
before-set! nil)
("Void. This is an empty function by default, but can be overridden in
the requestor of a form, to do some processing after the requestor's form
values are set into the specified bashee."
after-set! ())
after-set! nil))
(self-link
:functions
((self-link
(&key (display-string (the strings-for-display))
(display-color nil)
(target nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment