From 994566ed9ab4e2e86195eb02efe5e9344fe087b9 Mon Sep 17 00:00:00 2001
From: Basile Burg <b2.temp@gmx.com@gmx.com>
Date: Fri, 13 Apr 2018 11:16:04 +0200
Subject: [PATCH] fix comilation broken on win

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

diff --git a/etc/terminal/terminalctrls.pas b/etc/terminal/terminalctrls.pas
index b35351ec..1d274436 100644
--- a/etc/terminal/terminalctrls.pas
+++ b/etc/terminal/terminalctrls.pas
@@ -18,7 +18,9 @@ type
   TTerminal = class(TCustomControl)
   private
     FInfo: Pointer;
+    {$ifdef hasgtk2term}
     fTerminalHanlde: PVteTerminal;
+    {$endif}
     fOnTerminate: TNotifyEvent;
     fOnTerminalVisibleChanged: TNotifyEvent;
     fBackgroundColor: TColor;
@@ -246,12 +248,14 @@ begin
   {$endif}
 end;
 
+{$ifdef hasgtk2term}
 function RegisterTerminal: Boolean;
 begin
   Result := TerminalAvailable;
   if Result then
     RegisterWSComponent(TTerminal, TGtk2WSTerminal);
 end;
+{$endif}
 
 constructor TTerminal.Create(AOwner: TComponent);
 begin
@@ -270,8 +274,10 @@ begin
 end;
 
 procedure TTerminal.setBackgroundColor(value: TColor);
+{$ifdef hasgtk2term}
 var
   c: TGDKColor;
+{$endif}
 begin
   fBackgroundColor:=value;
   {$ifdef hasgtk2term}
@@ -284,8 +290,10 @@ begin
 end;
 
 procedure TTerminal.setForegroundColor(value: TColor);
+{$ifdef hasgtk2term}
 var
   c: TGDKColor;
+{$endif}
 begin
   fForegroundColor:=value;
   {$ifdef hasgtk2term}
@@ -298,8 +306,10 @@ begin
 end;
 
 procedure TTerminal.setSelectedColor(value: TColor);
+{$ifdef hasgtk2term}
 var
   c: TGDKColor;
+{$endif}
 begin
   fSelectedColor:=value;
   {$ifdef hasgtk2term}