justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add _tmMaxLines field

Browse Source
This commit is contained in:
justin
2022-06-06 11:37:59 +01:00
parent 0b949dc512
commit 597336499c
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data.hs
+6 -5
View File
@@ -955,13 +955,14 @@ data Terminal = Terminal
, _tmMachineID :: Int , _tmMachineID :: Int
, _tmName :: String , _tmName :: String
, _tmDisplayedLines :: [(String,Color)] , _tmDisplayedLines :: [(String,Color)]
, _tmFutureLines :: [TerminalLine] , _tmFutureLines :: [TerminalLine]
, _tmMaxLines :: Int
, _tmTitle :: String , _tmTitle :: String
, _tmSel :: Maybe (Int,Int) , _tmSel :: Maybe (Int,Int)
, _tmInput :: Maybe T.Text , _tmInput :: Maybe T.Text
, _tmScrollCommands :: [TerminalCommand] , _tmScrollCommands :: [TerminalCommand]
, _tmWriteCommands :: [TerminalCommand] , _tmWriteCommands :: [TerminalCommand]
, _tmDeathEffect :: Terminal -> World -> World , _tmDeathEffect :: Terminal -> World -> World
} }
data Machine = Machine data Machine = Machine
{ _mcID :: Int { _mcID :: Int
src/Dodge/Default.hs
+1
View File
@@ -250,6 +250,7 @@ defaultTerminal = Terminal
, _tmName = "TESTTERMINAL" , _tmName = "TESTTERMINAL"
, _tmDisplayedLines = [] , _tmDisplayedLines = []
, _tmFutureLines = [] , _tmFutureLines = []
, _tmMaxLines = 14
, _tmTitle = "TERMINAL IN LOCATION" , _tmTitle = "TERMINAL IN LOCATION"
, _tmSel = Nothing , _tmSel = Nothing
, _tmInput = Nothing , _tmInput = Nothing