From 1409cbf7f77bbf8dd7229fb078f4d5304914e85f Mon Sep 17 00:00:00 2001
From: Henrik Brix Andersen <henrik@brixandersen.dk>
Date: Sat, 23 Jun 2012 17:38:19 +0200
Subject: [PATCH] Add Slic3r::GUI::Tab::is_dirty()

---
 lib/Slic3r/GUI/Tab.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Slic3r/GUI/Tab.pm b/lib/Slic3r/GUI/Tab.pm
index 2401afdf2..10abcd1f3 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) = @_;