… | |
… | |
26 | |
26 | |
27 | use strict; |
27 | use strict; |
28 | |
28 | |
29 | our $MAINWIN; |
29 | our $MAINWIN; |
30 | |
30 | |
|
|
31 | # XXX: make a recursive call from save_layout to all (interesting) sub-widgets |
31 | sub save_layout { |
32 | sub save_layout { |
32 | my ($self) = @_; |
33 | my ($self) = @_; |
33 | |
34 | |
34 | $main::CFG->{attr_edit_on} = exists $self->{attr_edit} ? 1 : 0; |
35 | $main::CFG->{attr_edit_on} = exists $self->{attr_edit} ? 1 : 0; |
35 | $main::CFG->{stack_view_on} = exists $self->{sv} ? 1 : 0; |
36 | $main::CFG->{stack_view_on} = exists $self->{sv} ? 1 : 0; |