anchor.diff:                   (let ((count (%get-replies-count (prop opinions) (@ this props))))
                      (if (< 1 count) count "")))
             (:tool-tip :key "a1"
  -                     :active (state viewable) :position "bottom"
  +                     :active (and (state viewable) (not (prop hide-popup)))
  +                     :position "bottom"
                        :group "one"
                        :arrow (popup-side (state position))
                        :parent (strcat "#" (prop id))
  
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:                              'hilited-text-id (@ props hilited-text-id)
                               'root-target-url (@ props root-target-url)
                               'look-handler (@ props look-handler)
                               'hide-popup (@ props hide-popup)
                               :dispatch (@ props dispatch)
                               tree-address (@ props tree-address))))
                  (cond ((< (@ common-data :opinions length) 1)
                         (collect
  