Make set_dirty ignore changes that don't do anything.

visilibity
Y. Sapir 2014-03-30 00:23:35 +03:00
parent 09d7d9b034
commit 576d02a20d
1 changed files with 3 additions and 0 deletions

View File

@ -311,6 +311,9 @@ sub update_tree {
sub set_dirty {
my $self = shift;
my ($dirty) = @_;
return if $dirty and $self->is_dirty;
return if (not $dirty) and (not $self->is_dirty);
my $selection = $self->{presets_choice}->GetSelection;
my $i = $self->{dirty} // $selection; #/