Updated SelectionContainer widgets

ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Box/SelectionContainer/Accordion.hs

@@ -51,8 +51,11 @@ mkAccordion = do
 instance IHaskellWidget Accordion where
   getCommUUID = uuid
   comm widget val _ =
-    case nestedObjectLookup val ["sync_data", "selected_index"] of
+    case nestedObjectLookup val ["state", "selected_index"] of
       Just (Number num) -> do
-        void $ setField' widget SelectedIndex (Sci.coefficient num)
+        void $ setField' widget SelectedIndex $ Just (Sci.coefficient num)
+        triggerChange widget
+      Just Null -> do
+        void $ setField' widget SelectedIndex Nothing
         triggerChange widget
       _ -> pure ()

ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Box/SelectionContainer/Tab.hs

@@ -15,6 +15,8 @@ module IHaskell.Display.Widgets.Box.SelectionContainer.Tab
 -- To keep `cabal repl` happy when running from the ihaskell repo
 import           Prelude
 
+import           Control.Monad (void)
+
 import           Data.Aeson
 import           Data.IORef (newIORef)
 import qualified Data.Scientific as Sci
@@ -50,8 +52,11 @@ mkTabWidget = do
 instance IHaskellWidget TabWidget where
   getCommUUID = uuid
   comm widget val _ =
-    case nestedObjectLookup val ["sync_data", "selected_index"] of
+    case nestedObjectLookup val ["state", "selected_index"] of
       Just (Number num) -> do
-        _ <- setField' widget SelectedIndex (Sci.coefficient num)
+        void $ setField' widget SelectedIndex $ Just (Sci.coefficient num)
+        triggerChange widget
+      Just Null -> do
+        void $ setField' widget SelectedIndex Nothing
         triggerChange widget
       _ -> pure ()

ihaskell-display/ihaskell-widgets/src/IHaskell/Display/Widgets/Types.hs

@@ -227,7 +227,7 @@ type family FieldType (f :: Field) :: * where
         FieldType 'S.Pack = LocationValue
         FieldType 'S.Align = LocationValue
         FieldType 'S.Titles = [Text]
-        FieldType 'S.SelectedIndex = Integer
+        FieldType 'S.SelectedIndex = Maybe Integer
         FieldType 'S.ReadOutMsg = Text
         FieldType 'S.Indent = Bool
         FieldType 'S.Child = Maybe ChildWidget
@@ -327,6 +327,7 @@ data WidgetType = ButtonType
                 | VBoxType
                 | AccordionType
                 | TabType
+                | StackedType
                 | ControllerButtonType
                 | ControllerAxisType
                 | ControllerType
@@ -409,6 +410,7 @@ type family WidgetFields (w :: WidgetType) :: [Field] where
   WidgetFields 'VBoxType = BoxClass
   WidgetFields 'AccordionType = SelectionContainerClass
   WidgetFields 'TabType = SelectionContainerClass
+  WidgetFields 'StackedType = SelectionContainerClass
   WidgetFields 'ControllerType =
     CoreWidgetClass :++ DOMWidgetClass :++
       ['S.Index, 'S.Name, 'S.Mapping, 'S.Connected, 'S.Timestamp, 'S.Buttons, 'S.Axes, 'S.ChangeHandler ]
@@ -924,7 +926,7 @@ defaultSelectionContainerWidget :: FieldType 'S.ViewName -> FieldType 'S.ModelNa
 defaultSelectionContainerWidget viewName modelName = defaultBoxWidget viewName modelName <+> selAttrs
   where
     selAttrs = (Titles =:: [])
-               :& (SelectedIndex =:: 0)
+               :& (SelectedIndex =:: Nothing)
                :& (ChangeHandler =:: return ())
                :& RNil