#52 Menuto bug

open
nobody
None
5
2014-01-16
2012-05-14
No

Version: xHarbour build 1.2.1
Module: ...source\rtl\menuto.prg
Function: __MenuTo()

Original code:
case K_LBUTTONDOWN
case K_LDBLCLK
if ( ( nMouseClik := hittest(s_aLevel[ nPointer-1 ], ;
MRow(), MCol()) ) > 0 )
n := nMouseClik
endif
lExit := .T.
exit

Should be:
case K_LBUTTONDOWN
case K_LDBLCLK
if ( ( nMouseClik := hittest(s_aLevel[ nPointer-1 ], ;
MRow(), MCol()) ) > 0 /.and. nMouseClik == n /)
lExit := .T.
endif
exit

Discussion