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

2012-08-02 10:00 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbide/misc.prg
    % use core API instead of inferior local implementation

  * ChangeLog
    ! fixed mistyped ChangeLog entry headers in previous 
      two commits
This commit is contained in:
Viktor Szakats
2012-08-02 08:02:27 +00:00
parent eeacdf4ee9
commit 6be189711b
2 changed files with 13 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -16,11 +16,19 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-08:01 14:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
2012-08-02 10:00 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbide/misc.prg
% use core API instead of inferior local implementation
* ChangeLog
! fixed mistyped ChangeLog entry headers in previous
two commits
2012-08-01 14:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtgui/hbqtgui.ch
! Fix to prev.
2012-08:01 14:01 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
2012-08-01 14:01 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtgui/hbqtgui.ch
+ Added: QDir_* constants.

15
harbour/contrib/hbide/misc.prg
View File

@@ -1424,11 +1424,11 @@ STATIC PROCEDURE hbide_HBPLoad( aParams, cFileName )
#if 0
DO CASE
CASE !( Left( cParamNQ, 1 ) == "-" ) .AND. Len( cParamNQ ) >= 1 .AND. Left( cParamNQ, 1 ) == "@" .AND. ;
!( Lower( hbide_HBPExtGet( cParamNQ ) ) == ".clp" )
!( Lower( hb_FNameExt( cParamNQ ) ) == ".clp" )
/* skip recurse */
CASE !( Left( cParamNQ, 1 ) == "-" ) .AND. ;
( Lower( hbide_HBPExtGet( cParamNQ ) ) == ".hbm" .OR. ;
Lower( hbide_HBPExtGet( cParamNQ ) ) == ".hbp" )
( Lower( hb_FNameExt( cParamNQ ) ) == ".hbm" .OR. ;
Lower( hb_FNameExt( cParamNQ ) ) == ".hbp" )
/* skip recurse */
OTHERWISE
AAdd( aParams, { cParam, cFileName, cLine:__enumIndex() } )
@@ -1450,15 +1450,6 @@ STATIC FUNCTION hbide_HBPStrStripQuote( cString )
SubStr( cString, 2, Len( cString ) - 2 ),;
cString )
/*----------------------------------------------------------------------*/
STATIC FUNCTION hbide_HBPExtGet( cFileName )
LOCAL cExt
hb_FNameSplit( cFileName, , , @cExt )
RETURN cExt
/*----------------------------------------------------------------------*/
//
/*----------------------------------------------------------------------*/