From f1dff7604580eef9c65d25a7a2de5cc857cee359 Mon Sep 17 00:00:00 2001
From: "berkeviktor@aol.com" <berkeviktor@aol.com>
Date: Mon, 15 Nov 2010 14:28:40 +0100
Subject: [PATCH] preserve gtk theme

---
 build/xchat-wdk.skel.iss | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/build/xchat-wdk.skel.iss b/build/xchat-wdk.skel.iss
index 44b58813..c633c21f 100644
--- a/build/xchat-wdk.skel.iss
+++ b/build/xchat-wdk.skel.iss
@@ -281,15 +281,25 @@ end;
 
 /////////////////////////////////////////////////////////////////////
 procedure CurStepChanged(CurStep: TSetupStep);
+var
+	sAppPath: String;
+	sTempPath: String;
 begin
-	if not (IsTaskSelected('portable')) then
+	if not (IsTaskSelected('portable')) and (IsUpgrade()) then
 	begin
 		if (CurStep=ssInstall) then
 		begin
-			if (IsUpgrade()) then
-			begin
-				UnInstallOldVersion();
-			end;
+			sAppPath := ExtractFilePath(Application.ExeName);
+			sTempPath := GetTempDir();
+
+			DelTree(sTempPath + 'gtk-2.0', True, True, True)
+			RenameFile(sAppPath + 'etc\gtk-2.0', sTempPath + 'gtk-2.0');
+			UnInstallOldVersion();
+		end;
+		if (CurStep=ssPostInstall) then
+		begin
+			DelTree(sAppPath + 'etc\gtk-2.0', True, True, True)
+			RenameFile(sTempPath + 'gtk-2.0', sAppPath + 'etc\gtk-2.0');
 		end;
 	end;
 end;