… | |
… | |
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 | |