Procedure in class not responding

Hi,

I'm testing a concept with a class (in .prg), called by a button on my form:

With ThisForm
	Local lcProc
   lcProc = set('Procedure')
   Set procedure to class_sample
   .Addobject('Container1', 'MyContainer', 836, 36, 109, 263)
   .Container4.Visible = .T.
   Set procedure to (lcProc)
ENDWITH

This is the class content:

Define class MyContainer as Container

   	PROCEDURE Init(tnLeft, tnTop, tnHeight, tnWidth)
      	With This
         	.Left = tnLeft
         	.Top = tnTop
        	.Height = tnHeight
         	.Width = tnWidth
      	ENDWITH
   	ENDPROC
   
   	PROCEDURE Click
	WAIT WINDOW "You just clicked..." timeout(1)
   	ENDPROC
   	   		
ENDDEFINE

If I run my form and click the button my container is created and visible, but when clicking the container nothing happens (no wait message).
What am I overlooking?

Regards, Gerrit

Today is only yesterday's tommorrow - Uriah Heep

ENTIRE THREAD

Procedure in class not responding Posted by Gerrit Broekhuis @ 2/19/2019 8:31:56 PM

RE: Procedure in class not responding Posted by Greg Green @ 2/19/2019 8:37:06 PM

RE: Procedure in class not responding Posted by Mike Gagnon @ 2/19/2019 8:37:23 PM

RE: Procedure in class not responding Posted by Gerrit Broekhuis @ 2/19/2019 9:08:18 PM

RE: Procedure in class not responding Posted by António Lopes @ 2/19/2019 8:55:35 PM

RE: Procedure in class not responding Posted by Yuri Rubinov @ 2/19/2019 8:56:48 PM

RE: Procedure in class not responding Posted by Gerrit Broekhuis @ 2/19/2019 9:02:25 PM

RE: Procedure in class not responding Posted by Yuri Rubinov @ 2/19/2019 9:23:24 PM

RE: Procedure in class not responding Posted by Gerrit Broekhuis @ 2/19/2019 9:32:34 PM

PROCEDURE IN CLASS NOT RESPONDING