FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour [FWH 9.04: ...GET..ACTION..] Is this a bug?
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
[FWH 9.04: ...GET..ACTION..] Is this a bug?
Posted: Mon May 18, 2009 04:48 AM
Clicking the button causes a RTE to occur. Is this considered a bug?
Code (fw): Select all Collapse
#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
FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: [FWH 9.04: ...GET..ACTION..] Is this a bug?
Posted: Mon May 18, 2009 05:49 AM
Hua,

Please code it this way:
Code (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Re: [FWH 9.04: ...GET..ACTION..] Is this a bug?
Posted: Mon May 18, 2009 07:10 AM

Ok, thanks.

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

Continue the discussion