| … | |
… | |
| 1301 | }); |
1301 | }); |
| 1302 | return; |
1302 | return; |
| 1303 | } |
1303 | } |
| 1304 | |
1304 | |
| 1305 | $arg_self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL; |
1305 | $arg_self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL; |
|
|
1306 | |
|
|
1307 | unless ($arg_self->has_render) { |
|
|
1308 | warn "background extension needs RENDER extension 0.10 or higher, ignoring background-expr.\n"; |
|
|
1309 | return; |
|
|
1310 | } |
| 1306 | |
1311 | |
| 1307 | # set environment to evaluate user expression |
1312 | # set environment to evaluate user expression |
| 1308 | |
1313 | |
| 1309 | local $self = $arg_self; |
1314 | local $self = $arg_self; |
| 1310 | local $HOME = $ENV{HOME}; |
1315 | local $HOME = $ENV{HOME}; |
| … | |
… | |
| 1551 | $expr = $self->old_bg_expr; |
1556 | $expr = $self->old_bg_expr; |
| 1552 | } |
1557 | } |
| 1553 | |
1558 | |
| 1554 | $expr or return; |
1559 | $expr or return; |
| 1555 | |
1560 | |
| 1556 | $self->has_render |
|
|
| 1557 | or die "background extension needs RENDER extension 0.10 or higher, ignoring background-expr.\n"; |
|
|
| 1558 | |
|
|
| 1559 | $self->set_expr (parse_expr $expr); |
1561 | $self->set_expr (parse_expr $expr); |
| 1560 | $self->{border} = $self->x_resource_boolean ("%.border"); |
1562 | $self->{border} = $self->x_resource_boolean ("%.border"); |
| 1561 | |
1563 | |
| 1562 | $MIN_INTERVAL = $self->x_resource ("%.interval"); |
1564 | $MIN_INTERVAL = $self->x_resource ("%.interval"); |
| 1563 | |
1565 | |
