1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | #:META:X_RESOURCE:tabbar-fg:tab bar foreground colour |
3 | #:META:X_RESOURCE:tabbar-fg:colour:tab bar foreground colour |
4 | #:META:X_RESOURCE:tabbar-bg:tab bar background colour |
4 | #:META:X_RESOURCE:tabbar-bg:colour:tab bar background colour |
5 | #:META:X_RESOURCE:tab-fg:tab foreground colour |
5 | #:META:X_RESOURCE:tab-fg:colour:tab foreground colour |
6 | #:META:X_RESOURCE:tab-bg:tab background colour |
6 | #:META:X_RESOURCE:tab-bg:colour:tab background colour |
7 | |
7 | |
8 | sub refresh { |
8 | sub refresh { |
9 | my ($self) = @_; |
9 | my ($self) = @_; |
10 | |
10 | |
11 | my $ncol = $self->ncol; |
11 | my $ncol = $self->ncol; |