FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour bug Ribbon
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
bug Ribbon
Posted: Sat Aug 17, 2013 08:01 PM

Hello,

This is a small bug:

Error description: Error BASE/1111 Error de argumento: LEN
Args:
[ 1] = U

Stack Calls
===========
Called from: => LEN( 0 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RUNACTION( 1485 )
Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR_KEYBMODE( 1359 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2637 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1043 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYDOWN( 1025

Thank you.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: bug Ribbon
Posted: Sun Aug 18, 2013 02:57 AM

Lucas

please post the sample to reproduce the error... explain how we can reproduce the error?

thanks

Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug Ribbon
Posted: Sun Aug 18, 2013 09:11 AM

Daniel,

This error was produced with FWH 13.06.

I received it from a customer, as we automatically receive error.log.

This is line 1485:
if Len( ::aAcc ) > 10

And 1359:
::bKeyDown = { | nKey | ::RunAction( nKey ) }

I guess the user pressed some key combination.

The fix may be in METHOD RunAction to check that ::aAcc is not nill?.

Thank you.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug Ribbon
Posted: Sun Aug 18, 2013 10:36 AM

Lucas,

We could use:

  if ! Empty( ::aAcc ) .and. Len( ::aAcc ) > 10

and check if it is fine, thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug Ribbon
Posted: Sun Aug 18, 2013 11:18 AM

Antonio,

Yes, it Works.

Thanks.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug Ribbon
Posted: Sun Aug 18, 2013 12:05 PM

Included for next FWH build, thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion