[Tree] Use defaultValue instead of value on input when the component is uncontrolled

parent b1169f3d
...@@ -21,7 +21,7 @@ import Effect.Console (log) ...@@ -21,7 +21,7 @@ import Effect.Console (log)
import Prelude (identity) import Prelude (identity)
import React (ReactElement) import React (ReactElement)
import React.DOM (a, button, div, h5, i, input, li, span, text, ul) import React.DOM (a, button, div, h5, i, input, li, span, text, ul)
import React.DOM.Props (_id, _type, className, href, title, onClick, onInput, placeholder, style, value, _data) import React.DOM.Props (_id, _type, className, href, title, onClick, onInput, placeholder, style, defaultValue, _data)
import React.DOM.Props as DOM import React.DOM.Props as DOM
import Thermite (PerformAction, Render, Spec, createClass, defaultPerformAction, defaultRender, modifyState_, simpleSpec) import Thermite (PerformAction, Render, Spec, createClass, defaultPerformAction, defaultRender, modifyState_, simpleSpec)
...@@ -233,7 +233,7 @@ renameTreeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeV ...@@ -233,7 +233,7 @@ renameTreeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeV
[ [
input [ _type "text" input [ _type "text"
, placeholder "Rename Node" , placeholder "Rename Node"
, value $ getRenameNodeValue s , defaultValue $ getRenameNodeValue s
, style {float: "left"} , style {float: "left"}
, className "col-md-2 form-control" , className "col-md-2 form-control"
, onInput \e -> d (RenameNode (unsafeEventValue e) nid) , onInput \e -> d (RenameNode (unsafeEventValue e) nid)
...@@ -294,7 +294,7 @@ createNodeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeV ...@@ -294,7 +294,7 @@ createNodeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeV
[ [
input [ _type "text" input [ _type "text"
, placeholder "Create Node" , placeholder "Create Node"
, value $ getCreateNodeValue s , defaultValue $ getCreateNodeValue s
, className "col-md-12 form-control" , className "col-md-12 form-control"
, onInput \e -> d (SetNodeValue (unsafeEventValue e) nid) , onInput \e -> d (SetNodeValue (unsafeEventValue e) nid)
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment