Show More
@@ -21,11 +21,11 b'' | |||
|
21 | 21 | "</a>")) |
|
22 | 22 | |
|
23 | 23 | (defun make-obj (title img selected) |
|
24 |
(+ "<li onclick='" (inline-call select-obj title img) |
|
|
25 |
" |
|
|
24 | (+ "<li onclick='" (inline-call select-obj title img) | |
|
25 | "' class='qsp-obj" (if selected " selected" "") "'>" | |
|
26 | 26 | (if img (+ "<img src='" img "'>") "") |
|
27 | 27 | title |
|
28 |
"</ |
|
|
28 | "</li>")) | |
|
29 | 29 | |
|
30 | 30 | (defun make-menu-delimiter () |
|
31 | 31 | "<hr>") |
@@ -298,12 +298,11 b'' | |||
|
298 | 298 | (call-serv-loc "$ONOBJSEL" title img)) |
|
299 | 299 | |
|
300 | 300 | (defun update-objs () |
|
301 | (clear-id "qsp-objs") | |
|
301 | 302 | (let ((elt (by-id "qsp-objs"))) |
|
302 | (setf (inner-html elt) "<ul>") | |
|
303 | 303 | (loop :for (name obj) :of *objs |
|
304 | 304 | :do (incf (inner-html elt) |
|
305 | (make-obj name (@ obj :img) (@ obj :selected)))) | |
|
306 | (incf (inner-html elt) "</ul>"))) | |
|
305 | (make-obj name (@ obj :img) (@ obj :selected)))))) | |
|
307 | 306 | |
|
308 | 307 | ;;; Menu |
|
309 | 308 |
General Comments 0
You need to be logged in to leave comments.
Login now