--- rxvt-unicode/src/perl/digital-clock 2006/01/03 20:47:36 1.7 +++ rxvt-unicode/src/perl/digital-clock 2012/06/10 17:39:54 1.11 @@ -1,14 +1,22 @@ #! perl -# this creates a simple digital clock +=head1 NAME -sub on_init { + digital-clock - display a digital clock overlay + +=head1 DESCRIPTION + +Displays a digital clock using the built-in overlay. + +=cut + +sub on_start { my ($self) = @_; $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0); $self->{timer} = urxvt::timer ->new - ->start (int urxvt::NOW) # make sure we update "on" the second + ->start (1 + int urxvt::NOW) # make sure we update "on" the second ->interval (1) ->cb (sub { $self->{overlay}->set (0, 0,