Changeset feabce2 for perlwrap.pm

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:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -132 +132 @@
 
 Remove a file descriptor previously registered via C<add_dispatch>
+
+=head2 create_style NAME OBJECT
+
+Creates a new barnowl style with the given NAME defined by the given
+object. The object must have a C<description> method which returns a
+string description of the style, and a and C<format_message> method
+which accepts a C<BarnOwl::Message> object and returns a string that
+is the result of formatting the message for display.
 
 =cut
@@ -824 +832 @@
     my $self = shift;
     my $m = shift;
-    return "\@b(PING) from \@b(" . $m->pretty_sender . ")\n";
+    return "\@b(PING) from \@b(" . $m->pretty_sender . ")";
 }
 
@@ -923 +931 @@
 
 sub format_ping($) {
+  my $self = shift;
   my $m = shift;
   return sprintf(