paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 23:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

TodoList: Fix compilation with FPC 3.0. IsValidIdent has extra parameters only in FPC trunk.

Browse Source 
git-svn-id: trunk@53435 -
This commit is contained in:
juha 2016-11-24 10:03:31 +00:00
parent e3d76eb840
commit 83086f564a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/todolist/todolist.pas
View File

@ -67,7 +67,7 @@ uses
CodeCache, CodeToolManager, BasicCodeTools, FileProcs, LazFileUtils,
LazFileCache, LclIntf,
// IDEIntf
LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf,
LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf, IDEUtils,
// IDE
ToDoListStrConsts;
@ -425,7 +425,7 @@ begin
CurOwner:=nil;
CurProject:=nil;
CurPkg:=nil;
if IsValidIdent(IDEItem,true) then begin
if LazIsValidIdent(IDEItem,true) then begin
// package
CurPkg:=PackageEditingInterface.FindPackageWithName(IDEItem);
CurOwner:=CurPkg;