mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 11:26:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Changed comm of control widgets

Browse Source
This commit is contained in:
David Davó 2021-07-01 18:15:32 +02:00
parent cfc3821542
commit 2ebdc43b17
12 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Bool/CheckBox.hs
View File

@ -50,7 +50,7 @@ mkCheckBox = do
instance IHaskellWidget CheckBox where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Bool value) -> do
void $ setField' widget BoolValue value
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Bool/ToggleButton.hs
View File

@ -56,7 +56,7 @@ mkToggleButton = do
instance IHaskellWidget ToggleButton where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Bool value) -> do
void $ setField' widget BoolValue value
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Float/BoundedFloat/BoundedFloatText.hs
View File

@ -51,7 +51,7 @@ mkBoundedFloatText = do
instance IHaskellWidget BoundedFloatText where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Number value) -> do
void $ setField' widget FloatValue (Sci.toRealFloat value)
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Float/BoundedFloat/FloatSlider.hs
View File

@ -58,7 +58,7 @@ mkFloatSlider = do
instance IHaskellWidget FloatSlider where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Number value) -> do
void $ setField' widget FloatValue (Sci.toRealFloat value)
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Float/BoundedFloatRange/FloatRangeSlider.hs
View File

@ -59,7 +59,7 @@ mkFloatRangeSlider = do
instance IHaskellWidget FloatRangeSlider where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Array values) ->
case map (\(Number x) -> Sci.toRealFloat x) $ V.toList values of
[x, y] -> do

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Float/FloatText.hs
View File

@ -51,7 +51,7 @@ mkFloatText = do
instance IHaskellWidget FloatText where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Number value) -> do
void $ setField' widget FloatValue (Sci.toRealFloat value)
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Int/BoundedInt/BoundedIntText.hs
View File

@ -51,7 +51,7 @@ mkBoundedIntText = do
instance IHaskellWidget BoundedIntText where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Number value) -> do
void $ setField' widget IntValue (Sci.coefficient value)
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Int/BoundedInt/IntProgress.hs
View File

@ -35,7 +35,7 @@ mkIntProgress = do
-- Default properties, with a random uuid
wid <- U.random
let boundedIntAttrs = defaultBoundedIntWidget "ProgressView" "ProgressModel"
let boundedIntAttrs = defaultBoundedIntWidget "ProgressView" "IntProgressModel"
progressAttrs = (Orientation =:: HorizontalOrientation)
:& (BarStyle =:: DefaultBar)
:& RNil

4
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Int/BoundedIntRange/IntRangeSlider.hs
View File

@ -38,7 +38,7 @@ mkIntRangeSlider = do
-- Default properties, with a random uuid
wid <- U.random
let boundedIntAttrs = defaultBoundedIntRangeWidget "IntSliderView" "IntSliderModel"
let boundedIntAttrs = defaultBoundedIntRangeWidget "IntRangeSliderView" "IntRangeSliderModel"
sliderAttrs = (Orientation =:: HorizontalOrientation)
:& (ShowRange =:: True)
:& (ReadOut =:: True)
@ -59,7 +59,7 @@ mkIntRangeSlider = do
instance IHaskellWidget IntRangeSlider where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Array values) ->
case map (\(Number x) -> Sci.coefficient x) $ V.toList values of
[x, y] -> do

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Int/IntText.hs
View File

@ -51,7 +51,7 @@ mkIntText = do
instance IHaskellWidget IntText where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (Number value) -> do
void $ setField' widget IntValue (Sci.coefficient value)
triggerChange widget

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/String/Text.hs
View File

@ -53,7 +53,7 @@ instance IHaskellWidget TextWidget where
getCommUUID = uuid
-- Two possibilities: 1. content -> event -> "submit" 2. sync_data -> value -> <new_value>
comm tw val _ = do
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (String value) -> setField' tw StringValue value >> triggerChange tw
_ -> pure ()
case nestedObjectLookup val ["content", "event"] of

2
ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/String/TextArea.hs
View File

@ -51,7 +51,7 @@ mkTextArea = do
instance IHaskellWidget TextArea where
getCommUUID = uuid
comm widget val _ =
case nestedObjectLookup val ["sync_data", "value"] of
case nestedObjectLookup val ["state", "value"] of
Just (String value) -> do
void $ setField' widget StringValue value
triggerChange widget