ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/tabbed
(Generate patch)

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.20 by root, Mon Feb 20 19:42:55 2006 UTC vs.
Revision 1.21 by root, Mon Feb 20 20:44:22 2006 UTC

… …
42 42
43 $self->want_refresh; 43 $self->want_refresh;
44} 44}
45 45
46sub new_tab { 46sub new_tab {
47 my ($self) = @_; 47 my ($self, @argv) = @_;
48 48
49 my $offset = $self->fheight; 49 my $offset = $self->fheight;
50 50
51 # save a backlink to us, make sure tabbed is inactive 51 # save a backlink to us, make sure tabbed is inactive
52 push @urxvt::TERM_INIT, sub { 52 push @urxvt::TERM_INIT, sub {
… …
63 push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::; 63 push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::;
64 64
65 my $term = new urxvt::term 65 my $term = new urxvt::term
66 $self->env, $urxvt::RXVTNAME, 66 $self->env, $urxvt::RXVTNAME,
67 -embed => $self->parent, 67 -embed => $self->parent,
68 @argv,
68 ; 69 ;
69} 70}
70 71
71sub configure { 72sub configure {
72 my ($self) = @_; 73 my ($self) = @_;
… …
242 243
243 $self->{tabheight} = $self->int_bwidth + $self->fheight + $self->lineSpace; 244 $self->{tabheight} = $self->int_bwidth + $self->fheight + $self->lineSpace;
244 245
245 $self->cmd_parse ("\033[?25l"); 246 $self->cmd_parse ("\033[?25l");
246 247
248 my @argv = $self->argv;
249
250 do {
251 shift @argv;
252 } while @argv && $argv[0] ne "-e";
253
247 $self->new_tab; 254 $self->new_tab (@argv);
248 255
249 () 256 ()
250} 257}
251 258
252sub on_configure_notify { 259sub on_configure_notify {

Diff Legend

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