[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