[FWH 9.04: ...GET..ACTION..] Is this a bug?

[hua]

Clicking the button causes a RTE to occur. Is this considered a bug?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

  TClass():activate()

return nil

class TClass
  data oWnd, cTest

  method activate()
  method blab() inline MsgInfo( "click" )
endclass

method activate() class TClass
  ::cTest := "Hello world!"

  DEFINE WINDOW ::oWnd COLOR "N/W*"

   @ 2, 2 GET ::cTest SIZE 110, 22 ;
      ACTION ::blab() BITMAP "..\bitmaps\16x16\find.bmp"

   ACTIVATE WINDOW ::oWnd
return self
 

[Antonio Linares]

Hua,

Please code it this way:

Code: Select all  Expand view

METHOD Activate() CLASS TClass

  local oThis := Self
 
  ::cTest := "Hello world!"

  DEFINE WINDOW ::oWnd COLOR "N/W*"

   @ 2, 2 GET ::cTest SIZE 110, 22 ;
      ACTION oThis:blab() BITMAP "..\bitmaps\16x16\find.bmp"

   ACTIVATE WINDOW ::oWnd

return self
 

[hua]

Ok, thanks.