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

2011-05-07 13:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/xbpmenubar.prg
    ! Fixed: where XbpMenu() activation was not supplying the documented
      parameters when activated, thanks Shum for watching it closely.
This commit is contained in:
Pritpal Bedi
2011-05-07 20:20:57 +00:00
parent 2040b02fea
commit cf18c3f876
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-05-07 13:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbpmenubar.prg
! Fixed: where XbpMenu() activation was not supplying the documented
parameters when activated, thanks Shum for watching it closely.
2011-05-07 11:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/vm/maindllp/dllpcode.c
* readded more win specific macros (msvc didn't like it)

2
harbour/contrib/hbxbp/xbpmenubar.prg
View File

@@ -505,7 +505,7 @@ METHOD xbpMenuBar:execSlot( cSlot, p )
IF ! empty( p ) .AND. ( nIndex := ascan( ::aMenuItems, {|e_| iif( hb_isNumeric( e_[ 2 ] ), e_[ 2 ] == p, .f. ) } ) ) > 0
IF cSlot == "triggered(bool)"
IF hb_isBlock( ::aMenuItems[ nIndex,4 ] )
eval( ::aMenuItems[ nIndex,4 ] )
eval( ::aMenuItems[ nIndex,4 ], nIndex, NIL, Self )
ELSE
::itemSelected( nIndex )