iiiypuk/hexchat
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

preserve gtk theme

Browse Source
This commit is contained in:
berkeviktor@aol.com 2010-11-15 14:28:40 +01:00
parent 711d06b42d
commit f1dff76045
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
build/xchat-wdk.skel.iss
View File

@ -281,15 +281,25 @@ end;
///////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep); procedure CurStepChanged(CurStep: TSetupStep);
var
sAppPath: String;
sTempPath: String;
begin begin
if not (IsTaskSelected('portable')) then if not (IsTaskSelected('portable')) and (IsUpgrade()) then
begin begin
if (CurStep=ssInstall) then if (CurStep=ssInstall) then
begin begin
if (IsUpgrade()) then sAppPath := ExtractFilePath(Application.ExeName);
begin sTempPath := GetTempDir();
UnInstallOldVersion();
end; 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; end;
end; end;