Other code works.
Just that (and some minor variations) wander off and get lost in a navel-contemplating loop on my machine (XP-Pro).
Edit: This works:
Code: Select all
Class myStringThing
myStringThing(string.s = "unused")
Release()
get()
Flex Set(x.l)
string.s
bg.l
EndClass
Procedure myStringThing.myStringThing(string.s = "unused")
Debug string
EndProcedure
Procedure myStringThing.Release()
This\string =""
EndProcedure
Procedure myStringThing.set(x.l)
abc = x
EndProcedure
Procedure.l myStringThing.get()
bg = 0
ProcedureReturn bg
EndProcedure
*object.myStringThing = NewObject myStringThing("abc")
*object\Release()
;DeleteObject *object