Work on terminals: allow scrolling to get default inputs

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))