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.8 by root, Wed Jan 18 11:05:09 2006 UTC vs.
Revision 1.9 by root, Mon Jan 23 23:13:03 2006 UTC

1#! perl 1#! perl
2 2
3# this creates a simple digital clock 3# this creates a simple digital clock
4 4
5sub on_init { 5sub on_start {
6 my ($self) = @_; 6 my ($self) = @_;
7 7
8 $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0); 8 $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
9 $self->{timer} = urxvt::timer 9 $self->{timer} = urxvt::timer
10 ->new 10 ->new

Diff Legend

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