From a36bca1a8810a67134263e1da98826406ec78b32 Mon Sep 17 00:00:00 2001 From: "berkeviktor@aol.com" Date: Tue, 7 Dec 2010 01:15:05 +0100 Subject: [PATCH] Backed out changeset: fdf3e1276dbe --- build/xchat-wdk.skel.iss | 20 +++++--------------- 1 file changed, 5 insertions(+), 15 deletions(-) diff --git a/build/xchat-wdk.skel.iss b/build/xchat-wdk.skel.iss index c633c21f..44b58813 100644 --- a/build/xchat-wdk.skel.iss +++ b/build/xchat-wdk.skel.iss @@ -281,25 +281,15 @@ end; ///////////////////////////////////////////////////////////////////// procedure CurStepChanged(CurStep: TSetupStep); -var - sAppPath: String; - sTempPath: String; begin - if not (IsTaskSelected('portable')) and (IsUpgrade()) then + if not (IsTaskSelected('portable')) then begin if (CurStep=ssInstall) then begin - 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'); + if (IsUpgrade()) then + begin + UnInstallOldVersion(); + end; end; end; end;