        (fn [this]
          (let [pop-border-node (reagent/dom-node this)
                clipped?        (popover-clipping pop-border-node)
-               anchor-node     (.-parentNode (.-parentNode (.-parentNode pop-border-node)))] ;; Get reference to rc-point-wrapper node
+               anchor-node     (-> pop-border-node .-parentNode .-parentNode .-parentNode)] ;; Get reference to rc-point-wrapper node
            (when (and clipped? (not @found-optimal))
              (reset! position (calculate-optimal-position (calc-element-midpoint anchor-node)))
              (reset! found-optimal true))
-           (calc-metrics @position)))
+           (calc-metrics @position)
+           (reset! ready-to-show? true)))
 
        :reagent-render
        (fn

    :left   (if p-width (- (- p-width 25) position-offset) p-width)
    :above  (if p-height (- (- p-height 25) position-offset) p-height)))

(def popover-border-args-desc
  [{:name :children        :required true                        :type "vector"           :validate-fn sequential?       :description "a vector of component markups"}
   {:name :position        :required true                        :type "keyword atom"     :validate-fn position?         :description [:span "relative to this anchor. One of " position-options-list]}


                           ;; make it visible and turn off Bootstrap max-width and remove Bootstrap padding which adds an internal white border
                           {:display   "block"
                            :opacity   (if @ready-to-show? "1" "0")
                            :max-width "none"
                            :padding   "0px"})}
            [popover-arrow orientation @pop-offset arrow-length arrow-width grey-arrow? tooltip-style? popover-color]
