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

[GB.FORM]

Browse source 
* NEW: Now the icon theme in userpath can be used


git-svn-id: svn://localhost/gambas/trunk@3184 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2010-09-06 18:23:49 +00:00
parent e9b2cd19b9
commit be91b4c7fe
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
comp/src/gb.form/.src/Stock.class
View file

@ -100,7 +100,10 @@ Static Private Sub InitTheme()
If sTheme Then
sTheme = Trim(sTheme)
'AddPath("gnome", "/usr/share/icons" &/ sTheme)
GetAllThemePath("gnome", "/usr/share/icons", sTheme)
sPath = "/usr/share/icons"
GetAllThemePath("gnome", sPath, sTheme)
'Print $aIconPath
'AddPath("freedesktop", "/usr/share/icons" &/ sTheme)
'AddPath("gnome", "/usr/X11R6/share/icons" &/ sTheme)
@ -404,6 +407,12 @@ Static Private Sub GetAllThemePath(sMap As String, sPath As String, sTheme As St
Dim sLine As String
If sMap = "gnome" Then
sPath = "/usr/share/icons"
If Not Exist(sPath &/ sTheme) Then sPath = User.Home &/ ".icons"
Endif
If Not Exist(sPath &/ sTheme) Then Return
AddPath(sMap, sPath &/ sTheme)
For Each sLine In Split(File.Load(sPath &/ sTheme &/ "index.theme"), "\n")