Code: Select all
Structure Counter
value.i = 10
EndStructure
a.counter
debug a\value ;should return 10
Code: Select all
Structure Counter
value.i = 10
EndStructure
a.counter
debug a\value ;should return 10
Code: Select all
Structure Car
name.s
speed.i
EndStructure
Global DefaultCar.Car
DefaultCar\name = "DefaultCar"
DefaultCar\speed = 100
Procedure DoCarStuff()
Protected car.Car
car = DefaultCar
Debug car\name
Debug car\speed
EndProcedure
DoCarStuff()
Code: Select all
Prototype __create(*structure)
Declare something_create()
Structure something
create.__create = @something_create()
...
EndStructure
Procedure something_create(*self.something)
....
EndProcedure
Define x.something\create(x)
Code: Select all
Declare something_create()
Structure something
create.i (*structure) = @something_create()
...
EndStructure
Procedure something_create(*self.something)
....
EndProcedure
Define x.something\\create()