Conditionally show iteration frame controls

morrna · Nov 24, 2024 · 6452903 · 6452903
1 parent 158e35f
commit 6452903
Showing 1 changed file with 17 additions and 13 deletions.
diff --git a/src/Command.elm b/src/Command.elm
@@ -58,7 +58,7 @@ viewBar {iterMode, baseContents}
             { incrementerDefaults | label = "# iteration frames" , min = Just 0}
             ChangeNumIterFrames
             (Content.numIterFrames baseContents)
-        ++ iterFrameKey
+        ++ iterFrameKey iterMode.showIterFrames
 
 layerVisibilityControls : List (HS.Html Message)
 layerVisibilityControls
@@ -126,19 +126,23 @@ getNewIterFrameID {baseContents}
     = ID.Trunk <| "f" ++ String.fromInt (1 + Content.numIterFrames baseContents)
 
 iterFrameKey
-    : List (HS.Html msg)
-iterFrameKey
-    = [
-        commandLabel "iteration frame controls"
-      , S.svg
+    : Bool
+   -> List (HS.Html msg)
+iterFrameKey showIterFrames
+    = if showIterFrames
+        then
         [
-            HSA.css
+            commandLabel "iteration frame controls"
+          , S.svg
                 [
-                    Css.marginLeft (Css.px 16)
-                  , Css.marginRight (Css.px 16)
+                    HSA.css
+                        [
+                            Css.marginLeft (Css.px 16)
+                          , Css.marginRight (Css.px 16)
+                        ]
+                ]
+                [
+                    IterFrame.showKey
                 ]
         ]
-        [
-            IterFrame.showKey
-        ]
-    ]
+        else []