[SimplePrimitives] Avoid accordion animation for initially active sec…

…tions
aardvark-platform · Apr 4, 2024 · 6ca64f9 · 6ca64f9
1 parent 48538eb
commit 6ca64f9
Showing 1 changed file with 17 additions and 3 deletions.
diff --git a/src/Aardvark.UI.Primitives/Primitives/SimplePrimitives.fs b/src/Aardvark.UI.Primitives/Primitives/SimplePrimitives.fs
@@ -671,15 +671,29 @@ module SimplePrimitives =
                 | Some ch -> [ "channelActive", ch ]
                 | _ -> []
 
+            let isActive =
+                let set =
+                    match input with
+                    | AccordionInput.Multi (set, _) -> set |> ASet.toAVal |> AVal.force
+                    | AccordionInput.Single (index, _) -> index |> AVal.force |> HashSet.single
+                    | _ -> HashSet.empty
+
+                fun i -> set |> HashSet.contains i
+
             require dependencies (
                 onBoot' channels boot (
                     Incremental.div attributes <| AList.ofList [
-                        for (title, node) in sections do
-                            div [clazz "title"] [
+                        let sections = Array.ofList sections
+
+                        for index = 0 to sections.Length - 1 do
+                            let title, node = sections.[index]
+                            let active = isActive index
+
+                            div [clazz "title"; if active then clazz "active"] [
                                 i [clazz "dropdown icon"] []
                                 title
                             ]
-                            div [clazz "content"] [
+                            div [clazz "content"; if active then clazz "active"] [
                                 node
                             ]
                     ]