Commit cc02a445 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent 7104894c
...@@ -9,7 +9,7 @@ derive gUpd [] ...@@ -9,7 +9,7 @@ derive gUpd []
//Start world = doHtmlServer (multiUser twotasks3) world //Start world = doHtmlServer (multiUser twotasks3) world
Start world = doHtmlServer (multiUser testEenTwee) world Start world = doHtmlServer (multiUser agenda2) world
where where
singleUser tasks hst singleUser tasks hst
# (_,html,hst) = startTask 0 tasks hst # (_,html,hst) = startTask 0 tasks hst
...@@ -23,7 +23,7 @@ where ...@@ -23,7 +23,7 @@ where
= mkHtml "mtest" [idform.form <=> html] hst = mkHtml "mtest" [idform.form <=> html] hst
where where
persistent tasks tst persistent tasks tst
# tst = setTaskAttribute Persistent tst // # tst = setTaskAttribute Persistent tst
// # tst = setTaskAttribute StaticDynamic tst // # tst = setTaskAttribute StaticDynamic tst
// # tst = setTaskAttribute Database tst // # tst = setTaskAttribute Database tst
= tasks tst = tasks tst
...@@ -50,9 +50,13 @@ infTask a tst ...@@ -50,9 +50,13 @@ infTask a tst
= mkTask (infTask a) tst = mkTask (infTask a) tst
testTime tst testTime tst
# (time,tst) = STask "SetTimer" (Time 0 0 0) tst # tst = returnF [Txt "How long do you want to wait?", Br] tst
# ((ok,estimation),tst) = PCTask2 ( waitForTimeTask time #>> returnV (False,0) # (time,tst) = STask "SetTimer" (Time 0 0 0) tst
, (1,"Estimation") @: returnTask time #>> (STask "Confirm" 0 =>> \t -> returnV (True,t)) # ((ok,estimation),tst) = PCTask2 ( waitForTimeTask time // wait for deadline
#>> returnV (False,0) // do it yourself
, (1,"Estimation") @: returnVF Void [Txt ("Please finish task before" <+++ time)]
#>> STask "Confirm" 0
=>> \t -> returnV (True,t)
) tst ) tst
| ok = (estimation,returnF [Txt ("Received estimation is " <+++ estimation)] tst) | ok = (estimation,returnF [Txt ("Received estimation is " <+++ estimation)] tst)
= mkTask testTime tst = mkTask testTime tst
......
...@@ -208,7 +208,8 @@ gForm{|PullDownMenu|} (init,formid) hst=:{submits} ...@@ -208,7 +208,8 @@ gForm{|PullDownMenu|} (init,formid) hst=:{submits}
= ( { changed = False = ( { changed = False
, value = v , value = v
, form = [Select (onMode formid.mode [] [] [Sel_Disabled Disabled] [] ++ , form = [Select (onMode formid.mode [] [] [Sel_Disabled Disabled] [] ++
[ Sel_Name (selectorInpName +++ encodeString (itemlist!!menuindex)) [ Sel_Name (selectorInpName +++ encodeString
(if (menuindex >= 0 && menuindex < length itemlist) (itemlist!!menuindex) ""))
, Sel_Size size , Sel_Size size
, `Sel_Std [Std_Style ("width:" <+++ width <+++ "px")] , `Sel_Std [Std_Style ("width:" <+++ width <+++ "px")]
, `Sel_Events (if submits [] (callClean OnChange formid.mode formid.id)) , `Sel_Events (if submits [] (callClean OnChange formid.mode formid.id))
......
Supports Markdown
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