Fixed #187 - an input-text bug where what's displayed in the componen…

…t can get out of sync with what the caller sends to it

src/re_com/misc.cljs

@@ -124,18 +124,22 @@
                                                   (if validation-regex (re-find validation-regex new-val) true))
                                             (reset! internal-model new-val)
                                             (when-not change-on-blur?
+                                              (reset! external-model @internal-model)
                                               (on-change @internal-model)))))
                          :on-blur     (handler-fn
                                         (when (and
                                                 on-change
                                                 change-on-blur?
                                                 (not= @internal-model @external-model))
+                                          (reset! external-model @internal-model)
                                           (on-change @internal-model)))
                          :on-key-up   (handler-fn
                                         (if disabled?
                                           (.preventDefault event)
                                           (case (.-which event)
-                                            13 (when on-change (on-change @internal-model))
+                                            13 (when on-change
+                                                 (reset! external-model @internal-model)
+                                                 (on-change @internal-model))
                                             27 (reset! internal-model @external-model)
                                             true)))}
                         attr)]]