topic-4798

Posts: 126

Joined: Thu Oct 06, 2005 10:18 PM

Class method
Posted: Thu Nov 02, 2006 04:50 PM

Antonio,

Is this possible to create class like this where ::ShowTest() method is call for get object ?

Thanks for help
Pawel

Code: Select all Collapse

Function ClassTest ()

   Local oTest := Nil

   oTest := Test () : New ()

Return .T.

Class Test

   Data oWnd
   Data oGet1
   Data cGet1 Init Space (10)

   Method New ()
   Method ReadTest ()
   Method ShowTest ()

EndClass

Method New () Class Test

   Define Window ::oWnd Title 'Class Test'
   @ 10, 10 Button 'Ok' Size 60, 20 Pixel Action ::ReadTest ()
   Activate Window ::oWnd

Return Self

Method ReadTest () Class Test

   @ 40, 10 Get ::oGet1 Var ::cGet1 Size 100, 20 Pixel On Change ::ShowTest () Of ::oWnd // this generate error message not found TGET:SHOWTEST
   @ 70, 10 Button 'Ok' Size 60, 20 Pixel Action MsgInfo (Str (::oGet1 : nPos))

Return .T.

Method ShowTest () Class Test

   MsgInfo (Str (::oGet1 : nPos))

Return .T.

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Class method
Posted: Mon Nov 06, 2006 07:41 AM

Hello,

Can you try

Code: Select all Collapse

...
::oGet1:bChange := {|| ::ShowTest() }
...

Regards.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Class method
Posted: Mon Nov 06, 2006 10:42 AM

Pawel,

Besides Carles solution, you may do:

Code: Select all Collapse

Method ReadTest () Class Test 
   
   local oThis := Self

   @ 40, 10 Get ::oGet1 Var ::cGet1 Size 100, 20 Pixel On Change oThis:ShowTest () Of ::oWnd
   @ 70, 10 Button 'Ok' Size 60, 20 Pixel Action MsgInfo (Str (::oGet1 : nPos)) 

Return .T.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion