[ViewVC] Diff of: cvs/kgsueme/kgsueme/superchat.pl

Comparing kgsueme/kgsueme/superchat.pl (file contents):
Revision 1.11 by pcg, Sat May 29 06:38:27 2004 UTC vs.
Revision 1.12 by pcg, Sun May 30 02:22:24 2004 UTC

          [move        => { foreground => "#0000b0", event => 1 }],
          [user        => { foreground => "#0000b0", event => 1 }],
          [coord       => { foreground => "#0000b0", event => 1 }],
          [error       => { foreground => "#ff0000", event => 1 }],
          [header      => { weight => 800, pixels_above_lines => 6 }],
+         [undo        => { foreground => "#ffff00", background => "#ff0000", weight => 800, pixels_above_lines => 6 }],
          [challenge   => { weight => 800, pixels_above_lines => 6, background => "#ffffb0" }],
          [description => { weight => 800, foreground => "blue" }],
          [infoblock   => { weight => 700, foreground => "blue" }],
       );
    my ($self) = @_;
    return if !$self->{l} || !$self->{buffer} || $self->{l}->get_deleted;
    $self->clear if $self->{buffer};
-   $self->{parent}{tagtable}->remove (delete $self->{tag}) if $self->{tag} && $self->{parent};
    delete $self->{parent};
    delete $self->{buffer};
    delete $self->{l};
    delete $self->{r};
 }
 sub DESTROY {
+   my $self = shift;
+   $self->{parent}{tagtable}->remove (delete $self->{tag}) if $self->{tag} && $self->{parent};
-   &destroy;
+   #&destroy;
 }
 1;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines