Commit 02550276 authored by Bas Lijnse's avatar Bas Lijnse
Browse files

Fixed focus state for constructors

parent 08614204
......@@ -452,10 +452,10 @@ where
]
where
styles = case formid.mode of
Edit -> [ `Sel_Std [Std_Style width, EditBoxStyle, Std_Id (selectorInpName +++ encodeString myname)]
, `Sel_Events (if submits [] (callClean OnChange Edit formid.id formid.lifespan True))
Edit -> [ `Sel_Std [Std_Style width, EditBoxStyle, Std_Id (encodeInputId (formid.id,cntr,UpdC myname))]
, `Sel_Events (if submits [] (callClean OnChange Edit "" formid.lifespan True))
]
Submit -> [ `Sel_Std [Std_Style width, EditBoxStyle, Std_Id (selectorInpName +++ encodeString myname)]
Submit -> [ `Sel_Std [Std_Style width, EditBoxStyle, Std_Id (encodeInputId (formid.id,cntr,UpdC myname))]
]
_ -> [ `Sel_Std [Std_Style width, DisplayBoxStyle]
, Sel_Disabled Disabled
......
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