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

2008-01-05 01:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/tpopup.prg
     ! Fixed typo in POPUPMENU():getAccel(), causing wrong 
       position being returned. Reported by Jose Miguel.

   * source/rtl/ttopbar.prg
     ! Changed HB_C52_STRICT guards to HB_EXTENSION.
This commit is contained in:
Viktor Szakats
2008-01-05 00:10:21 +00:00
parent 9a63e09587
commit 3ff05bdd24
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-01-05 01:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/tpopup.prg
! Fixed typo in POPUPMENU():getAccel(), causing wrong
position being returned. Reported by Jose Miguel.
* source/rtl/ttopbar.prg
! Changed HB_C52_STRICT guards to HB_EXTENSION.
2007-12-28 15:51 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
* source/rtl/tbrowse.prg
Method DispCell()

2
harbour/source/rtl/tpopup.prg
View File

@@ -321,7 +321,7 @@ METHOD getAccel( xKey ) CLASS POPUPMENU
nPos != Len( cCaption ) .AND. ;
xKey == Lower( SubStr( cCaption, nPos + 1, 1 ) )
RETURN nPos
RETURN tmp
ENDIF
NEXT

8
harbour/source/rtl/ttopbar.prg
View File

@@ -308,11 +308,11 @@ METHOD getAccel( nKey ) CLASS TOPBARMENU
IF ( nAt := At( "&", ::aItems[ n ]:caption ) ) > 0 .AND. ;
Upper( SubStr( ::aItems[ n ]:caption, nAt + 1, 1 ) ) == cKey
#ifndef HB_C52_STRICT
#ifdef HB_EXTENSION
IF ::aItems[ n ]:enabled
#endif
RETURN n
#ifndef HB_C52_STRICT
#ifdef HB_EXTENSION
ENDIF
#endif
ENDIF
@@ -355,11 +355,11 @@ METHOD hitTest( nMRow, nMCol ) CLASS TOPBARMENU
nColumn := aItems[ n ]:__col
IF nMCol >= nColumn .AND. nMCol <= nColumn + Len( aItems[ n ]:caption )
#ifndef HB_C52_STRICT
#ifdef HB_EXTENSION
IF aItems[ n ]:enabled
#endif
RETURN n
#ifndef HB_C52_STRICT
#ifdef HB_EXTENSION
ENDIF
#endif
ENDIF