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

2010-06-01 14:16 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/ideharbourhelp.prg
    ! Fixed a rare occured bug.

  * contrib/hbide/idehome.prg
    ! Rearranged and "Welcome" tab contents columns.

  * contrib/hbide/ideprojmanager.prg
    ! Made to invoke "Projects" tree window when a project is 
      created/saved through "Project Properties" dialog.
This commit is contained in:
Pritpal Bedi
2010-06-01 21:21:13 +00:00
parent 43b10bcf31
commit 0788263de6
4 changed files with 31 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -17,6 +17,17 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-06-01 14:16 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/ideharbourhelp.prg
! Fixed a rare occured bug.
* contrib/hbide/idehome.prg
! Rearranged and "Welcome" tab contents columns.
* contrib/hbide/ideprojmanager.prg
! Made to invoke "Projects" tree window when a project is
created/saved through "Project Properties" dialog.
2010-06-01 21:40 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/vm/fm.c
* src/vm/set.c

5
harbour/contrib/hbide/ideharbourhelp.prg
View File

@@ -1140,8 +1140,9 @@ METHOD IdeHarbourHelp:populateFuncDetails( n )
IF ( nIndex := ascan( ::aFunctions, {|e_| e_[ 4 ] == oTWItem } ) ) > 0
oFunc := ::aFunctions[ nIndex, 3 ]
ENDIF
::buildView( oFunc )
IF !empty( oFunc )
::buildView( oFunc )
ENDIF
RETURN Self
/*----------------------------------------------------------------------*/

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

@@ -318,8 +318,8 @@ METHOD IdeHome:refresh()
aadd( aHtm, ' <th width="150" >Title </th>' )
aadd( aHtm, ' <th width="50" >Type </th>' )
aadd( aHtm, ' <th width="75" >Sources </th>' )
aadd( aHtm, ' <th width="150" >Last Modified </th>' )
aadd( aHtm, ' <th >Location </th>' )
aadd( aHtm, ' <th width="300" >Location </th>' )
aadd( aHtm, ' <th width="120" >Last Modified </th>' )
AADD( aHtm, ' </tr>' )
//
::addProjectsInfo( @aHtm )
@@ -357,12 +357,15 @@ METHOD IdeHome:addProjectsInfo( aHtm )
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=left>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' ' + left( prp_[ PRJ_PRP_TYPE ], 3 ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=right>' )
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>' )
aadd( aHtm, ' <td align=center>' )
IF ! empty( dir_ )
aadd( aHtm, ' ' + dtoc( dir_[ 1,3 ] ) + " " + dir_[ 1,4 ] )
@@ -370,9 +373,6 @@ METHOD IdeHome:addProjectsInfo( aHtm )
aadd( aHtm, ' ' )
ENDIF
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=right>' )
aadd( aHtm, ' ' + hbide_pathNormalized( a_[ 1 ] ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' </tr>' )
NEXT
ENDIF
@@ -426,8 +426,8 @@ METHOD IdeHome:buildSourcesInfo( cProjectTitle, aSrcInfo )
aadd( aHtm, ' <th width="150" >Source</th>' )
aadd( aHtm, ' <th width="50" >Type</th>' )
aadd( aHtm, ' <th width="60" >Size</th>' )
aadd( aHtm, ' <th width="150" >Last Modified</th>' )
aadd( aHtm, ' <th >Location</th>' )
aadd( aHtm, ' <th width="250" >Location</th>' )
aadd( aHtm, ' <th width="120" >Last Modified</th>' )
AADD( aHtm, ' </tr>' )
//
FOR EACH aSrc IN aSrcInfo
@@ -456,15 +456,15 @@ METHOD IdeHome:formatSourceInfo( aHtm, aSrc )
aadd( aHtm, ' <td>' )
aadd( aHtm, ' ' + aSrc[ 4 ] )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=right>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' ' + hb_ntos( aSrc[ 6 ] ) )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=left>' )
aadd( aHtm, ' ' + aSrc[ 2 ] )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=center>' )
aadd( aHtm, ' ' + dtoc( aSrc[ 7 ] ) + " " + aSrc[ 8 ] )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' <td align=right>' )
aadd( aHtm, ' ' + aSrc[ 2 ] )
aadd( aHtm, ' </td>' )
aadd( aHtm, ' </tr>' )
RETURN Self

5
harbour/contrib/hbide/ideprojmanager.prg
View File

@@ -595,6 +595,9 @@ METHOD IdeProjManager:save( lCanClose )
::oPropertiesDock:hide()
ENDIF
IF lOk
::oDockPT:show()
ENDIF
RETURN lOk
/*----------------------------------------------------------------------*/
@@ -817,7 +820,7 @@ METHOD IdeProjManager:synchronizeAlienProject( cProjFileName )
METHOD IdeProjManager:sortSources( cMode )
LOCAL a_, cTyp, s, d_, n
LOCAL aSrc := { ".ch", ".prg", ".c", ".cpp", ".h", ".obj", ".o", ".lib", ".a", ".rc", ".res" }
LOCAL aSrc := { ".prg", ".ch", ".c", ".cpp", ".h", ".obj", ".o", ".lib", ".a", ".rc", ".res" }
LOCAL aTxt := { {} , {} , {} , {} , {} , {} , {} , {} , {} , {}, {} }
LOCAL aRst := {}