--- rxvt-unicode/src/perl/tabbed 2012/01/09 17:49:00 1.29 +++ rxvt-unicode/src/perl/tabbed 2012/06/06 15:09:49 1.32 @@ -1,5 +1,10 @@ #! perl +#:META:X_RESOURCE:tabbar-fg:colour:tab bar foreground colour +#:META:X_RESOURCE:tabbar-bg:colour:tab bar background colour +#:META:X_RESOURCE:tab-fg:colour:tab foreground colour +#:META:X_RESOURCE:tab-bg:colour:tab background colour + sub refresh { my ($self) = @_; @@ -79,14 +84,12 @@ $tab->XMoveResizeWindow ( $tab->parent, 0, $self->{tabheight} + 1, - $self->width, - $self->height - $self->{tabheight} + 2 * $tab->int_bwidth + $self->width, $self->height - $self->{tabheight} ); $tab->XMoveResizeWindow ( $tab->parent, 0, $self->{tabheight}, - $self->width, - $self->height - $self->{tabheight} + 2 * $tab->int_bwidth + $self->width, $self->height - $self->{tabheight} ); }