… | |
… | |
928 | local $TERM = shift; |
928 | local $TERM = shift; |
929 | my $htype = shift; |
929 | my $htype = shift; |
930 | |
930 | |
931 | if ($htype == 0) { # INIT |
931 | if ($htype == 0) { # INIT |
932 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
932 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
933 | |
933 | |
934 | my %ext_arg; |
934 | my %ext_arg; |
935 | |
935 | |
936 | { |
936 | { |
937 | my @init = @TERM_INIT; |
937 | my @init = @TERM_INIT; |
938 | @TERM_INIT = (); |
938 | @TERM_INIT = (); |
… | |
… | |
2002 | ->new |
2002 | ->new |
2003 | ->interval (1) |
2003 | ->interval (1) |
2004 | ->cb (sub { |
2004 | ->cb (sub { |
2005 | $term->{overlay}->set (0, 0, |
2005 | $term->{overlay}->set (0, 0, |
2006 | sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]); |
2006 | sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]); |
2007 | }); |
2007 | }); |
2008 | |
2008 | |
2009 | =over 4 |
2009 | =over 4 |
2010 | |
2010 | |
2011 | =item $timer = new urxvt::timer |
2011 | =item $timer = new urxvt::timer |
2012 | |
2012 | |
… | |
… | |
2135 | ->new |
2135 | ->new |
2136 | ->start ($pid) |
2136 | ->start ($pid) |
2137 | ->cb (sub { |
2137 | ->cb (sub { |
2138 | my ($pw, $exit_status) = @_; |
2138 | my ($pw, $exit_status) = @_; |
2139 | ... |
2139 | ... |
2140 | }); |
2140 | }); |
2141 | |
2141 | |
2142 | =over 4 |
2142 | =over 4 |
2143 | |
2143 | |
2144 | =item $pw = new urxvt::pw |
2144 | =item $pw = new urxvt::pw |
2145 | |
2145 | |