From 747feb7e5c5dd4e31f276cb684342f142bb33497 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 16 Apr 2018 14:12:04 +0200 Subject: [PATCH] fix building on windows --- etc/terminal/terminalctrls.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/etc/terminal/terminalctrls.pas b/etc/terminal/terminalctrls.pas index f479e6ef..daa676b9 100644 --- a/etc/terminal/terminalctrls.pas +++ b/etc/terminal/terminalctrls.pas @@ -354,6 +354,7 @@ begin end; procedure TTerminal.setScrollBackLines(value: LongWord); +{$ifdef hasgtk2term} var v: TGValue; begin @@ -361,6 +362,9 @@ begin v.g_type:= 1; v.data[0].v_uint := fScrollbackLines; g_object_set_property(PGObject(PWidgetInfo(FInfo).ClientWidget), 'scrollback-lines', @v); +{$else} +begin +{$endif} end; procedure TTerminal.setBackgroundColor(value: TColor);