         (dom/div  #js {:style style
                        :className "morphNode" } (shape app owner))))))
 
-
+;; ACE MORPH
(defn get-text-color-css [color]
  {"textColor" color})

(defn extract-text-css [->self]
     (apply merge 
       (map (fn [[prop value]]               

                    :ref "myInput"} (get-in ->text-morph [:morph :TextString])))

(defmethod shape "Text" [app owner]
  (let [style (extract-shape-css app)]
    (let [text-style (assoc style "cursor" "default")]
      (dom/div #js {:style (dict->js text-style)
