HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Properties are special now!
[clinton/lisp-on-lines.git]
/
src
/
ucw
/
standard-components.lisp
diff --git
a/src/ucw/standard-components.lisp
b/src/ucw/standard-components.lisp
index
1dabaa4
..
dd39293
100644
(file)
--- a/
src/ucw/standard-components.lisp
+++ b/
src/ucw/standard-components.lisp
@@
-1,5
+1,8
@@
(in-package :lisp-on-lines-ucw)
(in-package :lisp-on-lines-ucw)
+(defclass described-component-class (standard-component-class described-class)
+ ())
+
(defmacro defaction (&rest args-and-body)
`(arnesi:defmethod/cc ,@args-and-body))
(defmacro defaction (&rest args-and-body)
`(arnesi:defmethod/cc ,@args-and-body))
@@
-42,5
+45,5
@@
:component t
:initarg :body)))
:component t
:initarg :body)))
-(defmethod
ucw:
render-html-body ((window standard-window-component))
+(defmethod render-html-body ((window standard-window-component))
(ucw:render (window-body window)))
(ucw:render (window-body window)))