Work on terminals: allow scrolling to get default inputs

src/Dodge/Placement/Instance/Analyser.hs

@@ -72,8 +72,9 @@ analyser' starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \t
                 , _termMaxLines = 7
                 , _termTitle = "ANALYSER"
                 , _termSel = Nothing
-                , _termOptions = []
+--                , _termOptions = []
                 , _termInput = Nothing
+                , _termCommands = []
                 })
         )
         (\mc -> upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))

src/Dodge/Placement/Instance/Terminal.hs

@@ -58,7 +58,7 @@ termButton = Button
         , _btID = 0
         , _btText = "TERMINAL"
         , _btState = BtOff
-        , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing [] Nothing
+        , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing Nothing []
         }
 
 
@@ -115,8 +115,9 @@ genTermMessage f = \gp _ -> TerminalParams
     ,_termMaxLines = 7
     ,_termTitle = "TERMINAL"
     ,_termSel = Nothing
-    ,_termOptions = []
+--    ,_termOptions = []
     ,_termInput   = Nothing
+    ,_termCommands = []
     }
   where
     totermline s = TerminalLineDisplay 0 (const (s,white))