Error en la clase ssay Cambie el return y Funciona OK

[J. Ernesto]

Al compilar con versiones recientes de fivewin (1709, 1711) genera un error el la clase SSAY

Error description: Error BASE/1003 Variable does not exist: SUPER

Code: Select all  Expand view

 METHOD Initiate    ( hDlg )                   INLINE   Super:Initiate ( hDlg ), ::Default ()

 

Se agradece una ayuda por favor

Gracias

[cnavarro]

Cambia por

::Super:Initiate( ...

[J. Ernesto]

Mira ahora dice:

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/02/18, 17:46:49
Error description: Error BASE/1003 Variable does not exist: SUPER

Stack Calls
===========
Called from: .\_a_say_dinamico.prg => TDSAY:HANDLEEVENT( 189 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3368 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 590 )
Called from: .\source\classes\WINDOW.PRG => TDSAY:SENDMSG( 0 )
Called from: .\source\classes\WINDOW.PRG => TDSAY:SETFONT( 2919 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:INITIATE( 403 )
Called from: .\_a_say_dinamico.prg => (b)TDSAY( 56 )
Called from: .\_a_say_dinamico.prg => TDSAY:INITIATE( 0 )
Called from: => __OBJSENDMSG( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 657 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 908 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\_a_say_dinamico.prg => MAIN( 37 )

[J. Ernesto]

ahora dice:
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 04/02/18, 17:50:40
Error description: Error BASE/1003 Variable does not exist: SUPER

Stack Calls
===========
Called from: .\_a_say_dinamico.prg => TDSAY:DESTROY( 260 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
Called from: .\_a_say_dinamico.prg => TDSAY:HANDLEEVENT( 189 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3368 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\_a_say_dinamico.prg => MAIN( 37 )


Luego entonces cambie el return de los metodos

Return ::Super:HandleEvent ( nMsg, nWParam, nLParam )
y

Return ::Super:Destroy ()


y ya FUNCIONA

Gracias

[cnavarro]

Has cambiado todos los Super por ::Super ?

viewtopic.php?f=3&t=31063&p=179330&hilit=super+harbour+change#p179320