diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0a796932fe..05b8a7ff78 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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. diff --git a/harbour/contrib/hbide/misc.prg b/harbour/contrib/hbide/misc.prg index 142146ad91..f3dd2c15e9 100644 --- a/harbour/contrib/hbide/misc.prg +++ b/harbour/contrib/hbide/misc.prg @@ -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 - /*----------------------------------------------------------------------*/ // /*----------------------------------------------------------------------*/