moparisthebest/hexchat
1
0
Fork 0
mirror of https://github.com/moparisthebest/hexchat synced 2024-11-26 11:12:19 -05:00
Code Issues 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);
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;