Commit 92a7de46 authored by Steffen Michels's avatar Steffen Michels

...

parent 3950c4bf
Pipeline #33359 failed with stage
in 1 minute and 21 seconds
......@@ -654,3 +654,7 @@
flex: 0 0 25%;
align-self: stretch;
}
.itasks-hidden {
display: none;
}
......@@ -143,11 +143,11 @@ where
]
= (Ok (uia type attr, (mbVal, attr)), vst)
onEdit _ (_, mbVal) (_, attrs) vst = (Ok (NoChange, (mbVal`, attrs)), vst)
onEdit _ (_, mbVal) (_, attrs) vst = (Ok (ChangeUI [SetAttribute "value" valJSON] [], (mbVal`, attrs)), vst)
where
mbVal` = case mbVal of
Just val | isValid attrs val = Just val
_ = Nothing
(mbVal`, valJSON) = case mbVal of
Just val | isValid attrs val = (Just val, trace_n "json" $ toJSON val)
_ = (Nothing, JSONNull)
onRefresh toJSON dp new (mbOld, attrs) vst
| mbOld === Just new = (Ok (NoChange, (mbOld, attrs)), vst)
......@@ -157,7 +157,7 @@ where
editorWithJSONEncode :: !((a -> JSONNode) -> Editor a) -> Editor a | JSONEncode{|*|} a
editorWithJSONEncode genFunc = genFunc toJSON
import StdDebug
//Components which cannot be edited
viewComponent :: !(a -> UIAttributes) !UIType -> Editor a | JSONEncode{|*|}, JSONDecode{|*|} a
viewComponent toAttributes type = leafEditorToEditor leafEditor
......
......@@ -1108,9 +1108,10 @@ where
= Just (ChangeChild change)
| otherwise
= Nothing
import Debug.Trace
extractAttributeChanges :: !UIAttributes !LUIChanges !LUIEffects -> [UIAttributeChange]
extractAttributeChanges attr changes=:{setAttributes,delAttributes} effects=:{overwrittenAttributes,hiddenAttributes}
# attr = trace_stdout attr
//Apply changes to the attributes
# changes = foldl (applySetAttribute overwrittenAttributes hiddenAttributes) [] ('DM'.toList setAttributes)
# changes = foldl (applyDelAttribute overwrittenAttributes hiddenAttributes) changes ('DS'.toList delAttributes)
......
......@@ -264,7 +264,7 @@ workOnChosenTask choiceOption options =
(SelectByDepth 1)
(SelectNOT $ SelectByAttribute "visible" $ \val -> val =: (JSONBool True))
)
hideUI
(addCSSClass "itasks-hidden")
)
)
-&&-
......
Markdown is supported
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