Make set_dirty ignore changes that don't do anything.

This commit is contained in:
Y. Sapir 2014-03-30 00:23:35 +03:00
parent 09d7d9b034
commit 576d02a20d

View File

@ -312,6 +312,9 @@ sub set_dirty {
my $self = shift; my $self = shift;
my ($dirty) = @_; 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 $selection = $self->{presets_choice}->GetSelection;
my $i = $self->{dirty} // $selection; #/ my $i = $self->{dirty} // $selection; #/
my $text = $self->{presets_choice}->GetString($i); my $text = $self->{presets_choice}->GetString($i);