   (and (not (js/isNaN (js/parseFloat n))) (js/isFinite n)))
 
 
-(defn parse-int-or-nil [v]
+(defn parse-int-or [v dv]
   (if (is-numeric? v)
     (js/parseInt v)
-    nil))
+    dv))
+
+
+(defn parse-int-or-nil [v]
+  (parse-int-or v nil))
+
+(defn parse-int-or-zero [v]
+  (parse-int-or v 0))
 
 
 (defn on-click-com-fn [f]

(def textarea-app-init
  {:value ""})


(defn textarea [app owner {:keys [class+
                                  onChange-valid?-fn

;;**************************************************************************************************

(def virtual-pages-app-init
  {:current :main})

(defn virtual-pages-current [app]
  (app :current))

(defn virtual-pages-go-to-page!! [app page]
  (om/update! app :current page))

(defn ui-virtual-page-<<
