/
Properties.purs
43 lines (30 loc) · 1.26 KB
/
Properties.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
module GoJS.Model.ChangedEvent.Properties where
import Prelude
import GoJS.Diagram.Types (class IsDiagram)
import GoJS.EnumValue (EnumValue_)
import GoJS.Key (KeyProperty, toKeyProperty)
import GoJS.Model.Types (class IsModel, ChangedEvent_)
import GoJS.Unsafe (getUnsafe)
_change :: ChangedEvent_ -> EnumValue_
_change = getUnsafe [ "change" ]
_diagram :: forall d. IsDiagram d => ChangedEvent_ -> d
_diagram = getUnsafe [ "diagram" ]
-- Read-only
_isTransactionFinished :: ChangedEvent_ -> Boolean
_isTransactionFinished = getUnsafe [ "isTransactionFinished" ]
_model :: forall @m. IsModel m => ChangedEvent_ -> m
_model = getUnsafe [ "model" ]
_modelChange :: ChangedEvent_ -> String
_modelChange = getUnsafe [ "modelChange" ]
_newParam :: forall t. ChangedEvent_ -> t
_newParam = getUnsafe [ "newParam" ]
_newValue :: forall t. ChangedEvent_ -> t
_newValue = getUnsafe [ "newValue" ]
_object :: forall nodeData. ChangedEvent_ -> Record nodeData
_object = getUnsafe [ "object" ]
_oldParam :: forall t. ChangedEvent_ -> t
_oldParam = getUnsafe [ "oldParam" ]
_oldValue :: forall t. ChangedEvent_ -> t
_oldValue = getUnsafe [ "oldValue" ]
_propertyName :: forall nodeData @kt. ChangedEvent_ -> KeyProperty nodeData kt
_propertyName = toKeyProperty <<< getUnsafe [ "propertyName" ]