>*-- Class: cntevent (c:\program files\microsoft visual foxpro 9\class1.vcx) >*-- ParentClass: container >*-- BaseClass: container >*-- Time Stamp: 12/22/04 08:50:04 PM > >DEFINE CLASS cntevent AS container > Name = "cntevent" > > PROCEDURE dothisthing > LPARAMETERS tcThing > ENDPROC >ENDDEFINE > >*-- Class: cnthandler (c:\program files\microsoft visual foxpro 9\class1.vcx) >*-- ParentClass: container >*-- BaseClass: container >*-- Time Stamp: 12/22/04 08:51:12 PM > >DEFINE CLASS cnthandler AS container > PROCEDURE dothisthing > LPARAMETERS tcThing > RETURN .F. > ENDPROC >ENDDEFINE > >oevent = NEWOBJECT([cntevent],[c:\program files\microsoft visual foxpro 9\class1.vcx]) >ohandler = NEWOBJECT([cnthandler],[c:\program files\microsoft visual foxpro 9\class1.vcx]) >BINDEVENT(oevent,[dothisthing],ohandler,[dothisthing],1) > >?oevent.dothisthing() > >Always returns .T. no matter how the flag is set. > >>