X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;h=7f9a2f499dbdc3576039cf4a891f8296d701673a;hb=18c1286739897b65578e87b17167c6cef1922a3b;hp=8eb7dc081b3da404d8c6d349ff3f4811f9fe7095;hpb=5f4c4b61ea1e4062e90715af9e1027da6d1c7a66;p=mTask.git

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 8eb7dc0..7f9a2f4 100644
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -8,6 +8,14 @@ import mTask
 from Data.Func import $
 
 derive class iTask MTaskShareType
+
+derive gEditor MTaskShare
+derive gText MTaskShare
+derive JSONEncode MTaskShare
+derive JSONDecode MTaskShare
+derive gDefault MTaskShare
+gEq{|MTaskShare|} m1 m2 = m1.identifier == m2.identifier
+
 manageShares :: [MTaskShare] -> Task ()
 manageShares shares =
 	forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
@@ -45,5 +53,6 @@ makeShare withTask identifier value = treturn
 		|withTask=withTask
 		,identifier=identifier
 		,value=value
+		,dynvalue=dynamic value
 		,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
 		} >>= \sh->set value (getSDSShare sh) >>| treturn sh