Class Definition not found?

[Loomis]

I am adding objects to a page in a pageframe by using the following code in the Activate Method of the Page:

This.AddObject('page2obj', 'page2obj')

I added the class "page2obj" to the project. The class was created by highlighting some controls and then choosing "save as class..." from the VFP8 file menu. When I run the form and activate the page, I get the following message: Class definition PAGE2OBJ is not found. Why can't PAGE2OBJ be found?

Loomis

 

[ChrisRChamberlain]

Loomis

You need to ensure that the class library containing the class is included in your project, so include a line similar to

[COLOR=blue]SET CLASSLIB TO classes\grids ADDITIVE[/color]

in your main.prg

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander[sup]tm[/sup].com
PDFcommander[sup]tm[/sup].co.uk

 

[Nifrabar]

Hi !
In addition my approach once you are having more classes.
I put this piece of code in my start.prg:

lcCurClassLib=SET("CLASSLIB")
IF ! "myClass1" $ lcCurClassLib
  set classlib to myClass1 additive
endif	

IF ! "myClass2" $ lcCurClassLib
  set classlib to myClass2 additive
ENDIF

a.s.o.

-Bart

 

[Mike Gagnon]

Nifrabar

Beware of case sensitive functions! When you use set classlib to, the class reference becames ALL CAPS.

SET CLASSLIB TO c:\_movers.vcx addi
? SET("Classlib")  && result 'C:\_MOVERS.VCX'

I would suggest you change your function to

lcCurClassLib=SET("CLASSLIB")
IF ! [B]UPPPER[/B]("myClass1") $ lcCurClassLib
  set classlib to myClass1 additive
endif    

IF ! [B]UPPER[/B]("myClass2") $ lcCurClassLib
  set classlib to myClass2 additive
ENDIF

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Nifrabar]

Mike,
You are right,
In the code I have in my app the classname is in CAPS all.
Just to make the code better to read I introduced the 'myClass' in my example and did not respect the CAPS.
Thanks for your correction on this issue.
-Bart