From d598295516603ec3b7e040abb58a7d63cee34c73 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Fri, 19 Jun 2015 21:30:34 +0000
Subject: fix for the icons patcher

git-svn-id: http://svn.miranda-ng.org/main/trunk@14274 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 tools/iceit/Unit1.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tools')

diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas
index 614df63878..387ff1f643 100644
--- a/tools/iceit/Unit1.pas
+++ b/tools/iceit/Unit1.pas
@@ -403,7 +403,7 @@ procedure TForm1.IceItClick(Sender: TObject);
 var
   n: Integer;
   S: String;
-  F: String;
+  F,X: String;
   xFilePath: String;
   xIcoPath: String;
   xTemp: String;
@@ -450,7 +450,9 @@ begin
         end
         else
         begin
-          xFilePath := MirandaPath + F + '\' + S + '.dll';
+          if (F = '\libs') then X := '.mir'
+          else                  X := '.dll';
+          xFilePath := MirandaPath + F + '\' + S + X;
           xIcoPath := IcePath + F + '\' + S + '\' + S;
         end;
         CheckListBox1.Items[n] := SetValue(CheckListBox1.Items[n], 1, 'PROGRESS');
-- 
cgit v1.2.3