Make set_dirty ignore changes that don't do anything.
This commit is contained in:
parent
09d7d9b034
commit
576d02a20d
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user