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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* NEW: Use 'open' icon for top-level project tree folders.


git-svn-id: svn://localhost/gambas/trunk@5229 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-10-08 16:37:22 +00:00
parent f297239776
commit 0bc1869019
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
app/src/gambas3/.src/Project.module
View file

@ -1646,11 +1646,11 @@ Private Sub DoRefresh(Optional bReset As Boolean, Optional bDoNotRefreshCache As
sKey = Project.Dir
.Add(sKey, Name, GetIcon(Project.Dir, 16))
.Add(KEY_PROJECT, ("Project"), Picture["icon:/small/directory"], sKey)
.Add(KEY_SOURCE, ("Sources"), Picture["icon:/small/directory"], sKey)
If Components.Exist("gb.db") Then .Add(KEY_CONNECTION, ("Connections"), Picture["icon:/small/directory"], sKey)
If Components.Exist("gb.web") Then .Add(KEY_PUBLIC, ("Public"), Picture["icon:/small/directory"], sKey)
.Add(KEY_MISC, ("Data"), Picture["icon:/small/directory"], sKey)
.Add(KEY_PROJECT, ("Project"), Picture["icon:/small/open"], sKey)
.Add(KEY_SOURCE, ("Sources"), Picture["icon:/small/open"], sKey)
If Components.Exist("gb.db") Then .Add(KEY_CONNECTION, ("Connections"), Picture["icon:/small/open"], sKey)
If Components.Exist("gb.web") Then .Add(KEY_PUBLIC, ("Public"), Picture["icon:/small/open"], sKey)
.Add(KEY_MISC, ("Data"), Picture["icon:/small/open"], sKey)
'$bGetSource = TRUE