HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a4232a8
)
Add new in many to many should be a button if we can do it in the editor.
author
Drew Crampsie
<drewc@tech.coop>
Sat, 29 Oct 2005 13:17:05 +0000
(06:17 -0700)
committer
Drew Crampsie
<drewc@tech.coop>
Sat, 29 Oct 2005 13:17:05 +0000
(06:17 -0700)
darcs-hash:
20051029131705
-5417e-
cacf2545f084bcd4b9ecbd1fc243478bdec43178
.gz
src/slot-presentations.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/slot-presentations.lisp
b/src/slot-presentations.lisp
index
7827c37
..
b90128e
100644
(file)
--- a/
src/slot-presentations.lisp
+++ b/
src/slot-presentations.lisp
@@
-398,8
+398,8
@@
Calendar.setup({
(let ((instances (slot-value instance (slot-name slot)))
new-instance)
(<:ul
- (<:li (<ucw:
a
:action (add-to-many-to-many slot instance)
- (<:as-html "Add New")))
+ (<:li (<ucw:
button
:action (add-to-many-to-many slot instance)
+
(<:as-html "Add New")))
(<:li (<ucw:button :action (add-to-many-to-many slot instance new-instance)
(<:as-html "Add:"))
(<ucw:select :accessor new-instance