# Returns the number of elements in the TextBlock
#
my $self = shift;
return $#{@$self}+1;
return scalar(@$self);
}
sub Write {