Move towards inputs in terminal

2022-06-01 14:34:16 +01:00
parent b54864bbda
commit 2cedc1b968
13 changed files with 90 additions and 64 deletions
@@ -62,7 +62,7 @@ analyser' starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \t
  where
    termupdate tp btid = initMCUpdate
        (\mc -> buttons . ix btid . btTerminalParams .~
-            TerminalParams
+            const (TerminalParams
                { _termDisplayedLines   = []
                , _termFutureLines      = 
                    map simpleline (topFlushStrings allstrings)
@@ -73,7 +73,8 @@ analyser' starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \t
                , _termTitle = "ANALYSER"
                , _termSel = Nothing
                , _termOptions = []
-                }
+                , _termInput = Nothing
+                })
        )
        (\mc -> upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))
        )