Commit 66296d9f authored by Dave Cooper's avatar Dave Cooper

re-did tree node to direct to proper stream when redirecting.

parent f4e6d975
......@@ -181,7 +181,13 @@ or <tt>application-mixin</tt>"))
:colspan (1+ (- (the :total-depth) (the :depth))))
(if (eql self current-node)
(htm (:b (str (the :strings-for-display))))
(the (:write-self-link)))))
;;(the (:write-self-link))
;;(str (the self-link))
(htm (:b (str (the :strings-for-display))))
#+nil
(htm ((:a :href (the url))
(str (the strings-for-display))))
)))
(when (and (typep self 'node-mixin) (eql (the :tree-state) :open))
(mapc #'(lambda(node)
(write-the-object node (:tree-row :current-node current-node)))
......@@ -311,7 +317,10 @@ or <tt>application-mixin</tt>"))
:colspan (1+ (- (the :total-depth) (the :depth))))
(if (eql self current-node)
(html (:b (:princ (the :strings-for-display))))
(the (:write-self-link)))))
(html (:princ (the self-link)))
;;(the (:write-self-link))
)))
(when (and (typep self 'node-mixin) (eql (the :tree-state) :open))
(mapc #'(lambda(node)
(write-the-object node (:tree-row :current-node current-node)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment