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

GTK: replaced FileInFilenameMasks with MatchesMaskList

Browse Source 
git-svn-id: trunk@11593 -
This commit is contained in:
tombo 2007-07-22 14:19:32 +00:00
parent 77381cc8d4
commit e480c8112a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3532,8 +3532,8 @@ begin
begin begin
repeat repeat
if ((Info.Attr and faDirectory) <> faDirectory) then begin if ((Info.Attr and faDirectory) <> faDirectory) then begin
//debugln('PopulateFileAndDirectoryLists CurFileMask="',CurFileMask,'" Info.Name="',Info.Name,'" ',dbgs(FileInFilenameMasks(Info.Name,CurFileMask))); //debugln('PopulateFileAndDirectoryLists CurFileMask="',CurFileMask,'" Info.Name="',Info.Name,'" ',dbgs(MatchesMaskList(Info.Name,CurFileMask)));
if (CurFileMask='') or (FileInFilenameMasks(Info.Name,CurFileMask)) then if (CurFileMask='') or (MatchesMaskList(Info.Name,CurFileMask)) then
begin begin
Strlist.Add(Info.Name); Strlist.Add(Info.Name);
end; end;

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -43,7 +43,7 @@ uses
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF} {$ENDIF}
Math, // after gtk to get the correct Float type Math, // after gtk to get the correct Float type
LMessages, LCLProc, LCLStrConsts, LCLIntf, LCLType, DynHashArray, Maps, LMessages, LCLProc, LCLStrConsts, LCLIntf, LCLType, DynHashArray, Maps, Masks,
GraphType, GraphMath, Graphics, GTKWinApiWindow, LResources, Controls, Forms, GraphType, GraphMath, Graphics, GTKWinApiWindow, LResources, Controls, Forms,
Buttons, Menus, StdCtrls, ComCtrls, CommCtrl, ExtCtrls, Dialogs, ExtDlgs, Buttons, Menus, StdCtrls, ComCtrls, CommCtrl, ExtCtrls, Dialogs, ExtDlgs,
FileUtil, ImgList, GtkFontCache, GTKGlobals, gtkDef, GtkExtra; FileUtil, ImgList, GtkFontCache, GTKGlobals, gtkDef, GtkExtra;