Page 1 of 1

Error in Class TRibbonBar?

PostPosted: Tue Jul 20, 2010 12:47 pm
by gkuhnert
Hi,

following error occurs (for example in samples\ribbon.prg) when I open the backstage menu, then press ALT followed by any number:

Code: Select all  Expand view
Application
===========
   Path and name: D:\fw1006\fwh\samples\ribbon.exe (32 bits)
   Size: 1,660,928 bytes
   Time from start: 0 hours 0 mins 3 secs
   Error occurred at: 07/20/10, 14:43:44
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: END
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => END(0)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:ADDACTIONTABS(1290)
   Called from: .\source\classes\TRIBBON.PRG => (b)ADDACTION(1722)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RUNACTION(1257)
   Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR:KEYBMODE(1115)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN(2560)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN(848)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYDOWN(788)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT(956)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(976)
   Called from: ribbon.prg => MAIN(178)

System
======
   CPU type: AMD Athlon(tm) 64 Processor 3200+ 2017 Mhz
   Hardware memory: -1024 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6714)
   Windows version: 6.0, Build 6001 Service Pack 1

   Windows total applications running: 65
   ...

Variables in use
================
   Procedure     Type   Value
   ==========================
   END
     Local   1:    A    Len:    0
     Local   2:    U    
     Local   3:    U    
   TRIBBONBAR:ADDACTIONTABS
     Param   1:    N    2
     Local   1:    O    Class: TRIBBONBAR
   (b)ADDACTION
     Local   1:    U    
   TRIBBONBAR:RUNACTION
     Param   1:    N    50
     Local   1:    U    
     Local   2:    O    Class: TRIBBONBAR
     Local   3:    N    2
     Local   4:    U    
   (b)TRIBBONBAR:KEYBMODE
     Param   1:    N    50
     Param   2:    N    196609
   TWINDOW:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    U    
   TCONTROL:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   TRIBBONBAR:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   TWINDOW:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
   TCONTROL:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    U    
   TRIBBONBAR:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   _FWH
     Param   1:    N    196609
     Param   2:    N    256
     Param   3:    N    50
     Param   4:    N    196609
     Param   5:    N    2
     Local   1:    O    Class: TRIBBONBAR
   WINRUN
     Param   1:    N    3410130
   TWINDOW:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    O    Class: TWINDOW
     Local   3:    O    Class: TMENU
     Local   4:    O    Class: TRBGROUP
     Local   5:    O    Class: TRBGROUP
     Local   6:    O    Class: TRBGROUP
     Local   7:    O    Class: TRBGROUP
     Local   8:    O    Class: TRBGROUP
     Local   9:    U    
     Local  10:    O    Class: TRBTN
     Local  11:    O    Class: TRBTN
     Local  12:    O    Class: TRBTN
     Local  13:    O    Class: TRBTN
     Local  14:    O    Class: TRBTN
     Local  15:    O    Class: TRBTN
     Local  16:    O    Class: TRBTN
     Local  17:    O    Class: TRBTN
     Local  18:    O    Class: TRBTN
     Local  19:    O    Class: TRBTN
     Local  20:    O    Class: TRBTN
     Local  21:    O    Class: TRBTN
     Local  22:    O    Class: TRBTN
     Local  23:    O    Class: TRBTN
     Local  24:    U    
     Local  25:    O    Class: TRBTN
     Local  26:    O    Class: TRBTN
     Local  27:    O    Class: TRBTN
     Local  28:    O    Class: TRBTN
     Local  29:    O    Class: TRBTN
     Local  30:    O    Class: TRBTN
     Local  31:    O    Class: TRBTN
     Local  32:    O    Class: TRBTN
     Local  33:    O    Class: TRBTN
     Local  34:    O    Class: TRBTN
     Local  35:    O    Class: TRBTN
     Local  36:    O    Class: TRBTN
     Local  37:    O    Class: TRBTN
     Local  38:    O    Class: TRBTN
     Local  39:    O    Class: TRBTN
     Local  40:    O    Class: TRBTN
     Local  41:    O    Class: TRBTN
     Local  42:    O    Class: TRBTN
     Local  43:    O    Class: TRBTN
     Local  44:    O    Class: TRBTN
     Local  45:    O    Class: TRBTN
     Local  46:    O    Class: TRBTN
     Local  47:    L    .T.
     Local  48:    O    Class: TRBTN
     Local  49:    O    Class: TRBTN
     Local  50:    O    Class: TRBTN
     Local  51:    O    Class: TRBTN
     Local  52:    A    Len:    2
     Local  53:    A    Len:    2

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TMENU
     6 TMENUITEM
     7 TWINDOW
     8 TBRUSH
     9 TFONT
    10 TCONTROL
    11 TRIBBONBAR
    12 TRPANEL
    13 TBACKSTAGE
    14 TBACKSTAGEOPTION
    15 TRBTN
    16 TRBGROUP
    17 TMSGBAR
    18 TRECT
    19 TMSGITEM
    20 TTIMER
    21 TPANEL
    22 TREG32

Memory Analysis
===============
      135 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


Re: Error in Class TRibbonBar?

PostPosted: Thu Jul 22, 2010 8:25 pm
by Patricio Avalos Aguirre
Hello


That happens when the ribbon this shallow and ESC presses the key himself
Eso sucede cuando el ribbon esta vacio y se presiona ESC


Code: Select all  Expand view
Application
===========
   Path and name: C:\FWH\samples\ribbon.exe (32 bits)
   Size: 1,680,896 bytes
   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 07/22/10, 16:23:09
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: END
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => END(0)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RESETACC(1271)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYCHAR(769)
   Called from: c:\fwh\source\classes\CONTROL.prg => TRPANEL:KEYCHAR(717)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: c:\fwh\source\classes\CONTROL.prg => TRPANEL:HANDLEEVENT(1483)
   Called from: c:\fwh\source\classes\WINDOW.prg => _FWH(3391)
   Called from:  => WINRUN(0)
   Called from: c:\fwh\source\classes\WINDOW.prg => TWINDOW:ACTIVATE(976)
   Called from: ribbon.prg => MAIN(178)
 

Re: Error in Class TRibbonBar?

PostPosted: Thu Jul 22, 2010 8:44 pm
by Patricio Avalos Aguirre
Una posible solución sería

Code: Select all  Expand view
METHOD KeyChar( nKey, nFlags ) CLASS TRibbonBar

   if ::lAccActivated
      if nKey == VK_ESCAPE .and. ::oPanelAcc <> NIL //aqui
         ::ResetAcc()
      endif
   endif

return Super:KeyChar( nKey, nFlags )
 

Re: Error in Class TRibbonBar?

PostPosted: Fri Jul 23, 2010 7:59 am
by gkuhnert
Ok, that will only work for pressing 'ESC'
Pressing a number must be intercepted in Method LButtonDown I guess.

Re: Error in Class TRibbonBar?

PostPosted: Fri Jul 23, 2010 8:53 am
by Antonio Linares
Gilbert, Patricio,

We are going to review it as soon as possible. Sorry for the delay, thanks :-)