The counter widget example in "The weblocks user guide", section
"1.4.2 Actions" at: http://viridian-project.de/~sky/user-guide.stx.html,
seem to have an error. I guess it should read something like:
(defwidget counter ()
((count :accessor count-of :initform 0)))
(defmethod render-widget-body ((widget counter) &rest args)
(declare (ignore args))
(with-html
(:p (cl-who:esc (format nil "The counter is at ~D." (count-of
widget))))
(:p (render-link
(lambda (&rest args)
(declare (ignore args))
;; closes over WIDGET.
(incf (count-of widget)))
"Count up!"))))
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en.
