… | |
… | |
856 | } |
856 | } |
857 | |
857 | |
858 | sub on_start { |
858 | sub on_start { |
859 | my ($self) = @_; |
859 | my ($self) = @_; |
860 | |
860 | |
861 | my $expr = $self->x_resource ("background.expr") |
861 | my $expr = $self->x_resource ("%.expr") |
862 | or return; |
862 | or return; |
863 | |
863 | |
864 | $self->set_expr (parse_expr $expr); |
864 | $self->set_expr (parse_expr $expr); |
865 | $self->{border} = $self->x_resource_boolean ("background.border"); |
865 | $self->{border} = $self->x_resource_boolean ("%.border"); |
866 | |
866 | |
867 | $MIN_INTERVAL = $self->x_resource ("background.interval"); |
867 | $MIN_INTERVAL = $self->x_resource ("%.interval"); |
868 | |
868 | |
869 | () |
869 | () |
870 | } |
870 | } |
871 | |
871 | |