Create Object with name

Is it possible to create a new object and pass it a a name to use with the object. so something like this:

[CODE]
Type TSwitch Extends TObject

Global List:TList
Global Image:Timage

Function Create(name)
name:TSwitch = New TSwitch
If List = Null List = CreateList()
List.AddLast name
EndFunction

Method New()
X = 300
Y = 400
EndMethod

End Type[/CODE]

This don't work but its what im trying to achieve, do i have to state what type "name" is?

Cheers

That should be Ok depending on the other code.
Obviously, the next create will use 'Name' again so it will point to the last object on the list.

Global SwitchList:TList

Type TSwitch 
Field name:String

Function Create:Tswitch(this_ones_name:String)
	temp:TSwitch = New TSwitch 
	temp.name = this_ones_name
	If SwitchList = Null SwitchList = CreateList()
	Switchlist.AddLast temp
EndFunction

Method New()
X = 300
Y = 400
EndMethod

End Type

tswitch.create("mary")
tswitch.create("John")

For p:Tswitch = EachIn switchlist
	Print p.name
Next