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
+1
View File
@@ -956,6 +956,7 @@ data Terminal = Terminal
, _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
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