Commit 27b466f4 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent c172757d
...@@ -7,10 +7,6 @@ import htmlTask, htmlHandler ...@@ -7,10 +7,6 @@ import htmlTask, htmlHandler
derive gForm [] derive gForm []
derive gUpd [] derive gUpd []
testCode tst = STask "OK" (showHtml [Txt "Vul de waarde in: ",Br, Hr [], B [] "test", Br ], 0) tst
//Start world = doHtmlServer (multiUser (Quotation myQuotation)) world //Start world = doHtmlServer (multiUser (Quotation myQuotation)) world
//Start world = doHtmlServer (multiUser twotasks3) world //Start world = doHtmlServer (multiUser twotasks3) world
Start world = doHtmlServer (multiUser agenda2) world Start world = doHtmlServer (multiUser agenda2) world
......
...@@ -47,6 +47,7 @@ derive gForm Inline ...@@ -47,6 +47,7 @@ derive gForm Inline
derive gUpd Inline derive gUpd Inline
derive gParse Inline derive gParse Inline
derive gPrint Inline derive gPrint Inline
derive gerda Inline
showHtml :: [BodyTag] -> Inline // enabling to show Html code in Clean data showHtml :: [BodyTag] -> Inline // enabling to show Html code in Clean data
......
...@@ -490,6 +490,7 @@ toBody form = BodyTag form.form ...@@ -490,6 +490,7 @@ toBody form = BodyTag form.form
derive gUpd Inline derive gUpd Inline
derive gParse Inline derive gParse Inline
derive gPrint Inline derive gPrint Inline
derive gerda Inline
gForm{|Inline|} (init,formid) hst gForm{|Inline|} (init,formid) hst
# (Inline string) = formid.ival # (Inline string) = formid.ival
......
...@@ -10,10 +10,10 @@ class iData a // The collection of generic functions needed to make iData: ...@@ -10,10 +10,10 @@ class iData a // The collection of generic functions needed to make iData:
, iDataSerAndDeSerialize a , iDataSerAndDeSerialize a
class iDataSerialize a class iDataSerialize a
| gPrint{|*|} // To serialize a value to a String | gPrint{|*|} // To serialize a value to a String
// , gerda {|*|} // OPTION: To store and retrieve a value in a database , gerda {|*|} // OPTION: To store and retrieve a value in a database
, TC a // To be able to store values in a dynamic , TC a // To be able to store values in a dynamic
// TC is a special class cannot be included here // TC is a special class cannot be included here
class iDataSerAndDeSerialize a class iDataSerAndDeSerialize a
| gParse{|*|} // To de-serialize a string back to a value | gParse{|*|} // To de-serialize a string back to a value
, iDataSerialize a , iDataSerialize a
......
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