xbrowse : Keydown()

[demont frank]

Hello,

In mine aplication , i have :

oBrw:bkeyDown := {||....}

So , i try to trigger an action for nkey 32 or 13

The problem is that in method keydown , this action is executed twice :

Code: Select all  Expand view  RUN

METHOD KeyDown( nKey, nFlags ) CLASS TXBrowse

   if ::bKeyDown != nil
      Eval( ::bKeyDown, nKey, nFlags )
   endif   

   do case
   case nKey == VK_UP // and other keys
       .......
   otherwise
        return Super:KeyDown( nKey, nFlags )
   endcase

return 0



Super:Keydown() executes also ::bKeydown

I had to change it

if ::bKeyDown = nil
return Super:KeyDown( nKey, nFlags )
end

Am i missing something ?

Frank

[demont frank]

I am sorry , but i saw :

* Fix: Class TXBrowse Method KeyDown() was evaluating bKeyDown twice. Now it is ok.

How is the method changed ?

Frank

[Antonio Linares]

Frank,

Please remove these three lines:

Code: Select all  Expand view  RUN

   if ::bKeyDown != nil
      Eval( ::bKeyDown, nKey, nFlags )
   endif