From ef88e9472ac6a0f0dba68aaa494e8b8a8c0e8d8c Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 18 Oct 2010 21:09:27 +0000 Subject: [PATCH] 2010-10-18 14:10 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/idemisc.prg + Applied: patch from Viktor. Now .hbm files are available inside list of project files and it also become part of the .hbp if that is written back on disk plus for editing purposes. --- harbour/ChangeLog | 6 ++++++ harbour/contrib/hbide/idemisc.prg | 3 +++ 2 files changed, 9 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c90f0e92ce..5d74deb03d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2010-10-18 14:10 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/idemisc.prg + + Applied: patch from Viktor. Now .hbm files are available inside + list of project files and it also become part of the .hbp if that + is written back on disk plus for editing purposes. + 2010-10-18 21:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/debug/dbgwa.prg ! added missing REQUEST FIELDGET diff --git a/harbour/contrib/hbide/idemisc.prg b/harbour/contrib/hbide/idemisc.prg index 6595b56b1b..bdf641263d 100644 --- a/harbour/contrib/hbide/idemisc.prg +++ b/harbour/contrib/hbide/idemisc.prg @@ -1457,6 +1457,7 @@ STATIC PROCEDURE hbide_HBPLoad( aParams, cFileName ) FOR EACH cParam IN hb_ATokens( cLine,, .T. ) cParamNQ := hbide_HBPStrStripQuote( cParam ) IF ! Empty( cParamNQ ) + #if 0 DO CASE CASE !( Left( cParamNQ, 1 ) == "-" ) .AND. Len( cParamNQ ) >= 1 .AND. Left( cParamNQ, 1 ) == "@" .AND. ; !( Lower( hbide_HBPExtGet( cParamNQ ) ) == ".clp" ) @@ -1468,6 +1469,8 @@ STATIC PROCEDURE hbide_HBPLoad( aParams, cFileName ) OTHERWISE AAdd( aParams, { cParam, cFileName, cLine:__enumIndex() } ) ENDCASE + #endif + AAdd( aParams, { cParam, cFileName, cLine:__enumIndex() } ) ENDIF NEXT ENDIF