diff --git a/lib/Slic3r/GUI/Tab.pm b/lib/Slic3r/GUI/Tab.pm
index 2401afdf27..10abcd1f33 100644
--- a/lib/Slic3r/GUI/Tab.pm
+++ b/lib/Slic3r/GUI/Tab.pm
@@ -192,6 +192,11 @@ sub set_dirty {
     $self->sync_presets;
 }
 
+sub is_dirty {
+    my $self = shift;
+    return $self->{dirty};
+}
+
 sub load_presets {
     my $self = shift;
     my ($group) = @_;