1 package BettIrssiEvent;
11 return bless($self, $class);
17 return $self->{'MESSAGE'};
23 return $self->{'EVWITEM'};
29 return $self->{'SENDER'};
36 return sub {$self->ewprint(@_)};
43 if (defined($self->{'EVWITEM'})) {
44 $self->{'EVWITEM'}->print($data);
46 # No witem. This probably means that the event fired
47 # in the status window.
55 return sub {$self->awprint(@_)};
63 $w = Irssi::active_win();
66 foreach ($w->items()) {
67 if ($_->is_active()) {
73 # No active window item found. Write to the window directly.
76 # No active win. This should not happen, but nonetheless.
77 # Write to the status window.
85 return sub { $self->swprint(@_) };