Commit f99e77d0 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

behaviour of a basic editor changed such that it does not display the final result anymore

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@308 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 4cd619d1
......@@ -24,12 +24,12 @@ editTask` prompt a tst=:{tasknr,html,hst,userId}
# taskId = iTaskId userId tasknr "EdFin"
# editId = iTaskId userId tasknr "EdVal"
# buttonId = iTaskId userId tasknr "EdBut"
# (taskdone,hst) = mkStoreForm (Init,storageFormId tst.options taskId False) id hst // remember if the task has been done
# (taskdone,hst) = mkStoreForm (Init,storageFormId tst.options taskId False) id hst // remember if the task has been done
| taskdone.Form.value // test if task has completed
# (editor,hst) = (mkEditForm (Init,cFormId tst.options editId a <@ Display) hst) // yes, read out current value, make editor passive
= (editor.Form.value,{tst & activated = True, html = html +|+ BT editor.form editor.inputs, hst = hst}) // return result task
# (editor,hst) = mkEditForm (Init,cFormId tst.options editId a) hst // no, read out current value from active editor
# (finbut,hst) = mySimpleButton tst.options buttonId prompt (\_ -> True) hst // add button for marking task as done
# (editor,hst) = (mkEditForm (Init,cFormId tst.options editId a <@ Display) hst) // yes, read out current value, make editor passive
= (editor.Form.value,{tst & activated = True, html = html +|+ BT [] [] , hst = hst}) // return result task
# (editor,hst) = mkEditForm (Init,cFormId tst.options editId a) hst // no, read out current value from active editor
# (finbut,hst) = mySimpleButton tst.options buttonId prompt (\_ -> True) hst // add button for marking task as done
# (taskdone,hst) = mkStoreForm (Init,storageFormId tst.options taskId False) finbut.Form.value hst // remember task status for next time
| taskdone.Form.value = editTask` prompt a {tst & hst = hst} // task is now completed, handle as previously
= (editor.Form.value,{tst & activated = taskdone.Form.value, html = html +|+ BT (editor.form ++ finbut.form) (editor.inputs ++ finbut.inputs), hst = hst})
......
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