anchor.diff:        (lambda () (create viewable false position nil))
         handle-mouse-enter
         (lambda (e)
  +        (when (prop dispatch)
  +          (funcall (prop dispatch)
  +                   (create :type 'set-indicated
  +                           :data (immediate-children-ids (prop opinions)))))
           (set-state viewable true))
         handle-mouse-leave
         (lambda (e)
  +        (when (prop dispatch)
  +          (funcall (prop dispatch)
  +                   (create :type 'clear-indicated
  +                           :data (immediate-children-ids (prop opinions)))))
           (set-state viewable false)))
   
       (def-component plain-segment
  
positive.code:               "right"
                "left")
            "left"))
  
      (def-component hilited-segment
          (psx
  
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))
  