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

*** empty log message ***

parent 7104894c
......@@ -9,7 +9,7 @@ derive gUpd []
//Start world = doHtmlServer (multiUser twotasks3) world
Start world = doHtmlServer (multiUser testEenTwee) world
Start world = doHtmlServer (multiUser agenda2) world
where
singleUser tasks hst
# (_,html,hst) = startTask 0 tasks hst
......@@ -23,7 +23,7 @@ where
= mkHtml "mtest" [idform.form <=> html] hst
where
persistent tasks tst
# tst = setTaskAttribute Persistent tst
// # tst = setTaskAttribute Persistent tst
// # tst = setTaskAttribute StaticDynamic tst
// # tst = setTaskAttribute Database tst
= tasks tst
......@@ -50,9 +50,13 @@ infTask a tst
= mkTask (infTask a) tst
testTime tst
# (time,tst) = STask "SetTimer" (Time 0 0 0) tst
# ((ok,estimation),tst) = PCTask2 ( waitForTimeTask time #>> returnV (False,0)
, (1,"Estimation") @: returnTask time #>> (STask "Confirm" 0 =>> \t -> returnV (True,t))
# tst = returnF [Txt "How long do you want to wait?", Br] tst
# (time,tst) = STask "SetTimer" (Time 0 0 0) tst
# ((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
| ok = (estimation,returnF [Txt ("Received estimation is " <+++ estimation)] tst)
= mkTask testTime tst
......
......@@ -208,7 +208,8 @@ gForm{|PullDownMenu|} (init,formid) hst=:{submits}
= ( { changed = False
, value = v
, 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_Std [Std_Style ("width:" <+++ width <+++ "px")]
, `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