From 54c66bc9a7af2ce82c4e42c6e5fbc956e0637f0a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 25 Apr 2018 01:46:41 +0200
Subject: [PATCH] fix #305 - Terminal, scrollbackLines settings is not working

---
 etc/terminal/terminalctrls.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/etc/terminal/terminalctrls.pas b/etc/terminal/terminalctrls.pas
index 721fed47..96f931c9 100644
--- a/etc/terminal/terminalctrls.pas
+++ b/etc/terminal/terminalctrls.pas
@@ -55,7 +55,7 @@ type
     {$ifdef windows}
     property terminalProgram: string read fTermProgram write fTermProgram;
     {$endif}
-    property scrollbackLines: LongWord read fScrollbackLines write setScrollBackLines default 512;
+    property scrollbackLines: LongWord read fScrollbackLines write setScrollBackLines default 4096;
     // Background color
     property backgroundColor: TColor read fBackgroundColor write setBackgroundColor default clBlack;
     // Font color
@@ -329,7 +329,7 @@ begin
   fSelectedColor:= clWhite;
   Font.Height:=11;
   Font.Name:='Monospace';
-  fScrollbackLines:=512;
+  fScrollbackLines:=4096;
 
   {$ifdef windows}
   fTermProgram := 'cmd.exe';
@@ -361,7 +361,7 @@ begin
   fScrollbackLines:=value;
   if not assigned(FInFo) then
     exit;
-  v.g_type:= 1;
+  v.g_type:= G_TYPE_UINT;
   v.data[0].v_uint := fScrollbackLines;
   g_object_set_property(PGObject(PWidgetInfo(FInfo).ClientWidget), 'scrollback-lines', @v);
 {$else}