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

Comparing rxvt-unicode/src/perl/digital-clock (file contents):
Revision 1.5 by root, Tue Jan 3 04:18:47 2006 UTC vs.
Revision 1.6 by root, Tue Jan 3 04:30:31 2006 UTC

… …
6 my ($self) = @_; 6 my ($self) = @_;
7 7
8 $self->{digital_clock_overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0); 8 $self->{digital_clock_overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
9 $self->{digital_clock_timer} = urxvt::timer 9 $self->{digital_clock_timer} = urxvt::timer
10 ->new 10 ->new
11 ->start (int urxvt::NOW) # make sure we update "on" the second
11 ->interval (1) 12 ->interval (1)
12 ->cb (sub { 13 ->cb (sub {
13 $self->{digital_clock_overlay}->set (0, 0, 14 $self->{digital_clock_overlay}->set (0, 0,
14 sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]); 15 sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]);
15 }); 16 });

Diff Legend

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