How to make a class global?

[Ray1199]

I have two scripts in my test database called main_v1 and main_v2 (see attached sample database).

In main_v1 I define a class for a debug timer and can use it in main_v1. Now I would like to make the class debugTimer also available in main_v2 without copy it to main_v2. In general this should work if I mark the class as GLOBAL.

But no matter what I tried: main_v2 never knows the class and always throws an error.

Can someone please show me how to do this? Btw: I'm looking for a way where I can easily add more global classes (and global functions).

Thx

Raymond

[Tbaker]

Re: How to make a class global?

Ray

Try defining your class in code by itself - define it as global

Define class global debugtimer

You can also define it as shared - local is the default

execute that code- that will establish the class.

The you can use it in a DIM statement

Dim mytimer as debugtimer

Tom

[Ray1199]

Re: How to make a class global?

Tom,

thank you for your answer. I tried your sample but when I run main_v2 it still says: "Script:main_v2 line:5 dim newtimer as debugTimer Type is not defined". So main_v2 still doesn't know global class debugTimer.

Raymond

[Tbaker]

Re: How to make a class global?

Ray did you run main_v1 first. That establishes the class. Then run main_v2 and the script should run. It runs fine here (I'm using Version 8) but the classes were not changed in Version 9.

Again run main_v1 first to establish the class.

Tom

edit: Sorry Ray, I sent the wrong zip file -you got yours back again - here is the revised one that should have been sent.

Tom

[Ray1199]

Re: How to make a class global?

Tom,

your sample database works - thank you so far. But it isn't the solution I was looking for. I need something like an INCLUDE command, that make a one or more class definitions available for multiple scripts. It should work without running a special script first. You see what I mean? I hope you have a solution for me.

Regards,

Raymond

[Selwyn Rabins]

Re: How to make a class global?

Tom,

your sample database works - thank you so far. But it isn't the solution I was looking for. I need something like an INCLUDE command, that make a one or more class definitions available for multiple scripts. It should work without running a special script first. You see what I mean? I hope you have a solution for me.

Regards,

Raymond

why don't you put your class definitions in your autoexec script?

[Tbaker]

Re: How to make a class global?

Ray

Selwyn beat me to it but if you put the class in the autoexec it works fine

put the following in autoexec

define class global debugTimer 
	dim starttime as T
	dim stoptime as T
	
	function start as V ()
		starttime = now()
	end function

	function stop as V ()
		stoptime = now()
	end function
	
	function result as N ()
		result = stoptime - starttime
	end function
end class

Then you can use the debugTimer class anywhere in your app.

Tom

Selwyn is fast - I just read your the e-mail of your postl and he had already responded.

What other company does that?

[Ray1199]

Re: How to make a class global?

Selwyn, Tom,

"Autoexec script" - yes! This solved my problem! Thank you very much!

Raymond