| … | |
… | |
| 967 | |
967 | |
| 968 | # compiles a parsed expression |
968 | # compiles a parsed expression |
| 969 | sub set_expr { |
969 | sub set_expr { |
| 970 | my ($self, $expr) = @_; |
970 | my ($self, $expr) = @_; |
| 971 | |
971 | |
| 972 | $self->{root} = []; |
972 | $self->{root} = []; # the outermost frame |
| 973 | $self->{expr} = $expr; |
973 | $self->{expr} = $expr; |
| 974 | $self->recalculate; |
974 | $self->recalculate; |
| 975 | } |
975 | } |
| 976 | |
976 | |
| 977 | # takes a hash of sensitivity indicators and installs watchers |
977 | # takes a hash of sensitivity indicators and installs watchers |
| … | |
… | |
| 1039 | |
1039 | |
| 1040 | # set environment to evaluate user expression |
1040 | # set environment to evaluate user expression |
| 1041 | |
1041 | |
| 1042 | local $self = $arg_self; |
1042 | local $self = $arg_self; |
| 1043 | local $HOME = $ENV{HOME}; |
1043 | local $HOME = $ENV{HOME}; |
| 1044 | local $frame = []; |
1044 | local $frame = $self->{root}; |
| 1045 | |
1045 | |
| 1046 | ($x, $y, $w, $h) = $self->background_geometry ($self->{border}); |
1046 | ($x, $y, $w, $h) = $self->background_geometry ($self->{border}); |
| 1047 | |
1047 | |
| 1048 | # evaluate user expression |
1048 | # evaluate user expression |
| 1049 | |
1049 | |
