anchor.diff:                "right"
                 "left")
             "left"))
  +
  +    (defun immediate-children-ids (opinions)
  +      (mapcar (lambda (opin)
  +                (@ (getprop opin 0) id))
  +              opinions))
   
       (def-component hilited-segment
           (psx
  
positive.code:       (lambda () (create viewable false position nil))
        handle-mouse-enter
        (lambda (e)
          (set-state viewable true))
        handle-mouse-leave
        (lambda (e)
          (set-state viewable false)))
  
      (def-component plain-segment
  
negative.code:                  (let ((count (%get-replies-count (prop opinions) (@ this props))))
                     (if (< 1 count) count "")))
            (:tool-tip :key "a1"
                       :active (and (state viewable) (not (prop hide-popup)))
                       :position "bottom"
                       :group "one"
                       :arrow (popup-side (state position))
                       :parent (strcat "#" (prop id))
  