public override void CaseTTString(TTString node)
{
index = 3;
}
internal override void RemoveChild(Node child)
{
if ( _t_string_ == child )
{
_t_string_ = null;
return;
}
}
public AStringSexp(
TTString _t_string_
)
{
SetTString (_t_string_);
}
public void SetTString(TTString node)
{
if(_t_string_ != null)
{
_t_string_.Parent(null);
}
if(node != null)
{
if(node.Parent() != null)
{
node.Parent().RemoveChild(node);
}
node.Parent(this);
}
_t_string_ = node;
}
public virtual void CaseTTString(TTString node)
{
DefaultCase(node);
}