rewrite generation to rws

[mTask.git] / Shares / mTaskShare.icl

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 70d1014..eb799df 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -38,5 +38,5 @@ viewShare m = treturn ()//viewSharedInformation "" [] (getSDSStore m)
        //<<@ Title ("SDS: " +++ toString m.identifier) @! ()
 
 instance zero MTaskShare where
-       zero = {withTask="",identifier=0,realShare=""}
+       zero = {withTask="",identifier=0,realShare="",initVal=""}