I'm only want something, that is technically already possibly!
for declaration:
Code: Select all
Class cFirst ; Extends Nothing ;)
Method1.i(long1.l, long2.l)
property1.d
EndClass
the method defintion can be done with procedure:
Code: Select all
Procedure.i cFirst\Method1(Long1.l,Long2.l)
SELF\property1=0.5*long1*long2
EndProcedure
With AllocateObject(cFirst), CopyObject(*Object) and FreeObject(*Object) to handle object. It would be nice, when instead of AllocateObject(cFirst) a simple cFirst(). would be possible.
Really nice would be a start parameter block
Code: Select all
Class CSecond (value.d)
pValue.d
EndClass
*obj.CSecond=CSecond(10.5)
debug *obj\pValue ; should return 10.5
Procedure CSecond\\Constructor(value.d)
SELF\pValue=value
ProcedureReturn #true ; Constructor has initialized the Object correct.
EndProcedure
Really, really nice would be, if PB handle the define complete.
Code: Select all
procedure.d Test()
protected obj.CSecond(10.5)
If <something>
ProcedureReturn obj\pValue
EndIf
ProcedureReturn NaN()
EndProcedure