luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[INTERPRETER]

Browse Source 
* NEW: File.IsHidden() is a new static method that returns if a path is 
  hidden, i.e. if its filename or one of its directory components starts 
  with a dot.

[GB.FORM]
* NEW: Setting an hidden path to a DirChooser or FileChooser automatically 
  toggles the ShowHidden property if needed.


git-svn-id: svn://localhost/gambas/trunk@7414 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-10-17 01:59:12 +00:00
parent 0edfabd984
commit bc6493120e
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
comp/src/gb.form/.src/File/Chooser/FDirChooser.class
View File

@ -425,6 +425,9 @@ Public Sub SetPath(sPath As String)
Dim sMsg As String
If Not IsDir(File.Dir(sPath)) Then sMsg = ("Directory not found.")
If File.IsHidden(sPath) Then SetShowHidden(True)
SetDir(File.Dir(sPath))
If Not GetMulti() Then

20
main/gbx/gbx_c_file.c
View File

@ -673,6 +673,25 @@ BEGIN_METHOD(File_IsRelative, GB_STRING path)
END_METHOD
BEGIN_METHOD(File_IsHidden, GB_STRING path)
char *path = STRING(path);
int len = LENGTH(path);
int i;
for (i = 0; i < len; i++)
{
if (path[i] == '.' && (i == 0 || path[i - 1] == '/'))
{
GB_ReturnBoolean(TRUE);
return;
}
}
GB_ReturnBoolean(FALSE);
END_METHOD
//---------------------------------------------------------------------------
BEGIN_PROPERTY(Stream_Handle)
@ -910,6 +929,7 @@ GB_DESC NATIVE_File[] =
GB_STATIC_METHOD("SetBaseName", "s", File_SetBaseName, "(Path)s(NewBaseName)s"),
GB_STATIC_METHOD("IsRelative", "b", File_IsRelative, "(Path)s"),
GB_STATIC_METHOD("IsHidden", "b", File_IsHidden, "(Path)s"),
GB_STATIC_METHOD("Load", "s", File_Load, "(FileName)s"),
GB_STATIC_METHOD("Save", NULL, File_Save, "(FileName)s(Data)s"),