Changeset feabce2 for perlwrap.pm


Ignore:
Timestamp:
May 9, 2008, 8:01:05 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
61abb18
Parents:
db0ac7e (diff), 0eaa488 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:
Merged revisions 1033-1037 via svnmerge from 
svn+ssh://lunatique.mit.edu/mit/barnowl/src/svn/trunk

........
  r1034 | geofft | 2008-05-05 14:56:52 -0400 (Mon, 05 May 2008) | 1 line
  
  IRC: /list, /who, and /stats commands
........
  r1035 | geofft | 2008-05-06 01:37:29 -0400 (Tue, 06 May 2008) | 1 line
  
  IRC: Make M-N mostly, rather than completely, useless.
........
  r1036 | nelhage | 2008-05-06 20:10:17 -0400 (Tue, 06 May 2008) | 2 lines
  
  Fix two small bugs in styling pointed out by broder
........
  r1037 | nelhage | 2008-05-06 20:32:23 -0400 (Tue, 06 May 2008) | 2 lines
  
  Document create_style
........
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    r811ad93 r0eaa488  
    132132
    133133Remove a file descriptor previously registered via C<add_dispatch>
     134
     135=head2 create_style NAME OBJECT
     136
     137Creates a new barnowl style with the given NAME defined by the given
     138object. The object must have a C<description> method which returns a
     139string description of the style, and a and C<format_message> method
     140which accepts a C<BarnOwl::Message> object and returns a string that
     141is the result of formatting the message for display.
    134142
    135143=cut
     
    824832    my $self = shift;
    825833    my $m = shift;
    826     return "\@b(PING) from \@b(" . $m->pretty_sender . ")\n";
     834    return "\@b(PING) from \@b(" . $m->pretty_sender . ")";
    827835}
    828836
     
    923931
    924932sub format_ping($) {
     933  my $self = shift;
    925934  my $m = shift;
    926935  return sprintf(
Note: See TracChangeset for help on using the changeset viewer.