fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-10-21 09:12 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/idehome.prg
    ! Corrected: paths to be shown in original case in "Stats" tab.
      It fixes the wrong representation of paths in *nix systems.
This commit is contained in:
Pritpal Bedi
2010-10-21 16:18:07 +00:00
parent 9e0d85ce43
commit 9719da34d9
2 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-10-21 09:12 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idehome.prg
! Corrected: paths to be shown in original case in "Stats" tab.
It fixes the wrong representation of paths in *nix systems.
2010-10-21 19:05 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/src/rtl/hbnsctph.c
* changes to make compilers happy

18
harbour/contrib/hbide/idehome.prg
View File

@@ -307,11 +307,11 @@ METHOD IdeHome:refresh()
aadd( aHtm, ' <body align=center valign=center>' )
aadd( aHtm, ' <table cols="7" width="95%">' )
aadd( aHtm, ' <tr>' )
aadd( aHtm, ' <td align="left" valign="center" colspan="5">' )
aadd( aHtm, ' <img src=":/resources/project.png"' + '</img>' + '&nbsp;' + '&nbsp;' + '&nbsp;' )
aadd( aHtm, ' <td align="left" valign="center" colspan="5">' )
aadd( aHtm, ' <img src=":/resources/project.png"' + '</img>' + '&nbsp;' + '&nbsp;' + '&nbsp;' )
aadd( aHtm, ' <font face="Times New Roman" color="#FF4719" size="7"><b><U>Projects</u></b></font>' )
aadd( aHtm, ' &nbsp;' + '&nbsp;' + '&nbsp;' )
aadd( aHtm, ' <font face="Times New Roman" size="5">' + '( ' + ::oIde:cProjIni + ' )' + '</font>' )
aadd( aHtm, ' <font face="Times New Roman" size="5">' + '( ' + hbide_pathNormalized( ::oIde:cProjIni, .f. ) + ' )' + '</font>' )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' </tr>' )
aadd( aHtm, ' <tr bgcolor="#F0F0F5">' )
@@ -352,21 +352,21 @@ METHOD IdeHome:addProjectsInfo( aHtm )
dir_ := directory( a_[ 1 ] )
cIcon := hbide_imageForProjectType( prp_[ PRJ_PRP_TYPE ] )
aadd( aHtm, ' <tr height="1">' )
aadd( aHtm, ' <tr height="1">' )
aadd( aHtm, ' <td><b>' )
aadd( aHtm, ' ' + hbide_htmlImgAnchor( 'prj-' + prp_[ PRJ_PRP_TITLE ], ':/resources/' + cIcon + '.png' ) + '&nbsp;' )
aadd( aHtm, ' ' + hbide_htmlAnchor( 'prj-' + prp_[ PRJ_PRP_TITLE ], prp_[ PRJ_PRP_TITLE ], a_[ 1 ] ) )
aadd( aHtm, ' </b></td>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' ' + left( prp_[ PRJ_PRP_TYPE ], 3 ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' ' + hb_ntos( len( src_ ) ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=left>' )
aadd( aHtm, ' ' + hbide_pathNormalized( a_[ 1 ] ) )
aadd( aHtm, ' <td align=left>' )
aadd( aHtm, ' ' + hbide_pathNormalized( a_[ 1 ], .f. ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' <td align=center>' )
IF ! empty( dir_ )
aadd( aHtm, ' ' + dtoc( dir_[ 1,3 ] ) + " " + dir_[ 1,4 ] )
ELSE
@@ -397,7 +397,7 @@ METHOD IdeHome:buildProjectDetails( cProjectTitle )
cIcon := hbide_imageForFileType( cExt )
IF !empty( dir_:= directory( cSrc ) )
// bytes date time
aadd( aSrcInfo, { cSrc, hbide_pathNormalized( cPath ), cName, cExt, cIcon, dir_[ 1,2 ], dir_[ 1,3 ], dir_[ 1,4 ] } )
aadd( aSrcInfo, { cSrc, hbide_pathNormalized( cPath,.f. ), cName, cExt, cIcon, dir_[ 1,2 ], dir_[ 1,3 ], dir_[ 1,4 ] } )
ENDIF
NEXT