[Bese-devel] I'm in trouble again
Friedrich Dominicus
frido at q-software-solutions.de
Mon Sep 12 07:45:45 UTC 2005
I worked further on it and got to this point
(defaction do-it-3 ((controller sc))
(update-from-view controller)
(inspect *context*)
(call 'simple-text :controller controller))
(defaction do-it-2 ((view simple-view) (controller sc))
(update-from-view controller)
(inspect *context*)
(call 'simple-text :controller controller))
and this
(defmethod render-on ((res response) (view simple-view))
;; this is not perfect but for the example it should be enough
;; (inspect view)
(let ((controller (make-instance 'sc)))
(setf (db-obj controller) (make-instance 'be-class :val "some value frido"))
(initialize-vfd view controller)
(<ucw:form :action (do-it-2 view controller)
(<:table
(<:tr
(<:td "val")
(<:td (render-on res (val view)))))
(<:p (<:input :type "submit" :value "Accept")))))
giving do-it-2 as action works (although view is not used)
giving do-it-3 as action breaks.
Could someone please explain that to me?
Regards
Friedrich
More information about the bese-devel
mailing list