1 package Stem::ChatLabel ;
11 This is the address of the chat switch
18 my( $class ) = shift ;
20 my $self = Stem::Class::parse_args( $attr_spec, @_ ) ;
21 return $self unless ref $self ;
28 my ( $self, $msg ) = @_ ;
30 my $data = $msg->data() ;
34 substr( $$data, 0, 0, $msg->from_cell() . ': ' ) ;
37 $msg->to_cell( $self->{'sw_addr'} ) ;