view release on metacpan or  search on metacpan

lib/App/wmiirc/Tag.pm  view on Meta::CPAN

  my($self, $tag) = @_;
  $self->last_tag($tag);
  wmiir "/lbar/$tag", $color{norm};
}

sub event_urgent_tag {
  my($self, $type, $tag) = @_;
  wmiir "/lbar/$tag", $color{alert};
}

sub event_not_urgent_tag {
  my($self, $type, $tag) = @_;
  my($cur) = wmiir "/tag/sel/ctl";
  wmiir "/lbar/$tag", $cur eq $tag ?  $color{focus} : $color{norm};
}

sub event_left_bar_click {
  my($self, $button, $tag) = @_;
  wmiir "/ctl", "view $tag";
}
*event_left_bar_dnd = \&event_left_bar_click;