Commit 2efd182d authored by Bas Lijnse's avatar Bas Lijnse

Fixed focus state for constructors


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@144 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 368387cb
......@@ -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