From 0b79376fa6184ca5e32696ce5eb773e5739ad770 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 Aug 2014 10:01:56 +0000
Subject: [PATCH] Lazarus trunk fix (Thanks Juha Maninnen)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3475 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
index 90b8cc394..a12a18b37 100644
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
@@ -1411,7 +1411,7 @@ begin
       if ( prjFile = nil ) then begin
         dlgRes := MessageDlg(Self.Caption,'Add this type library to the current project ?',mtConfirmation,mbYesNo,0);
         if ( dlgRes = mrYes ) then begin
-          LazarusIDE.DoOpenEditorFile(FCurrentFileName,-1,[ofAddToProject]);
+          LazarusIDE.DoOpenEditorFile(FCurrentFileName,-1,-1,[ofAddToProject]);
         end;
       end;
     end;