         :class "nav-item"
         :on-mouse-over (handler-fn (reset! mouse-over? true))
         :on-mouse-out  (handler-fn (reset! mouse-over? false))
-        :on-click      (handler-fn (reset! selected-tab-id (:id tab)))
+        :on-click      (handler-fn (on-select-tab (:id tab)))
         }
        [:span
         {:style {:cursor "default"}}    ;; removes the I-beam over the label



(defn left-side-nav-bar
  [selected-tab-id]
    [v-box
     :children (for [tab tabs-definition]
                 [nav-item tab selected-tab-id])])


(defn re-com-title

  []
  (let [id-store        (local-storage (atom nil) ::id-store)
        selected-tab-id (reagent/atom (if (nil? @id-store) (:id (first tabs-definition)) @id-store))   ;; id of the selected tab
        on-select-tab   #(do (reset! selected-tab-id %1) (reset! id-store %1))]
    (fn ;; _main
      []
      [h-box
