From 8701d9712a7d3b305d26d2e86318596d3dc4d1cf Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Thu, 26 Jul 2012 22:39:08 +0000 Subject: [PATCH] 2012-07-26 15:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/uisrcmanager.prg ! Fixed: a nasty bug, discovered by Guillermo Varona, thanks. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbide/uisrcmanager.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f3d89df701..c32f59205e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-07-26 15:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/uisrcmanager.prg + ! Fixed: a nasty bug, discovered by Guillermo Varona, thanks. + 2012-07-26 13:24 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/uisrcmanager.prg + Added: few more classes which are not derived from QObject. diff --git a/harbour/contrib/hbide/uisrcmanager.prg b/harbour/contrib/hbide/uisrcmanager.prg index fd8536b9b7..1cd7352f07 100644 --- a/harbour/contrib/hbide/uisrcmanager.prg +++ b/harbour/contrib/hbide/uisrcmanager.prg @@ -1048,7 +1048,7 @@ METHOD IdeUISrcManager:buildClassSkeleton( cCls, cUiName ) aadd( aSrc, '' ) aadd( aSrc, ' IF Left( cMsg, 2 ) == "Q_"' ) aadd( aSrc, ' cMtd := SubStr( cMsg, 3 )' ) - aadd( aSrc, ' IF __objHasMsg( ::oUI, cMtd' ) + aadd( aSrc, ' IF __objHasMsg( ::oUI, cMtd )' ) aadd( aSrc, ' RETURN ::oUI:&cMtd' ) aadd( aSrc, ' ELSE' ) aadd( aSrc, ' oError := ErrorNew()' )