From 76213fb5b71f0ab24a59f3740b71a8d1cfee3843 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 11 Nov 2013 22:20:25 +0100
Subject: [PATCH] Save the last used Slic3r version and display a notice to
 encourage legacy users to revert their support material settings to the
 defaults

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

diff --git a/lib/Slic3r/GUI.pm b/lib/Slic3r/GUI.pm
index bd293da1a..e277265cf 100644
--- a/lib/Slic3r/GUI.pm
+++ b/lib/Slic3r/GUI.pm
@@ -82,11 +82,15 @@ sub OnInit {
     }
     
     # load settings
+    my $last_version;
     if (-f "$datadir/slic3r.ini") {
         my $ini = eval { Slic3r::Config->read_ini("$datadir/slic3r.ini") };
         $Settings = $ini if $ini;
+        $last_version = $Settings->{_}{version};
         $Settings->{_}{mode} ||= 'expert';
     }
+    $Settings->{_}{version} ||= $Slic3r::VERSION;
+    Slic3r::GUI->save_settings;
     
     # application frame
     Wx::Image::AddHandler(Wx::PNGHandler->new);
@@ -206,6 +210,15 @@ sub OnInit {
     $frame->Show;
     $frame->Layout;
     
+    if (!$run_wizard && (!defined $last_version || $last_version ne $Slic3r::VERSION)) {
+        # user was running another Slic3r version on this computer
+        if (!defined $last_version || $last_version =~ /^0\./) {
+            show_info($self->{skeinpanel}, "Hello! Support material was improved since the "
+                . "last version of Slic3r you used. It is strongly recommended to revert "
+                . "your support material settings to the factory defaults and start from "
+                . "those. Enjoy and provide feedback!", "Support Material");
+        }
+    }
     $self->{skeinpanel}->config_wizard if $run_wizard;
     
     Slic3r::GUI->check_version