Make set_dirty ignore changes that don't do anything.

2014-03-30 00:23:35 +03:00 · 2014-03-30 00:23:35 +03:00 · 576d02a20d
commit 576d02a20d
parent 09d7d9b034
1 changed files with 3 additions and 0 deletions
--- a/lib/Slic3r/GUI/Tab.pm
+++ b/lib/Slic3r/GUI/Tab.pm
@ -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; #/