fix #1743: offer to restart the dm service

1 files changed, 4 insertions, 0 deletions

diff --git a/perl-install/standalone/drakedm b/perl-install/standalone/drakedm
index f70c585d5..8eb7ceb6d 100644
--- a/perl-install/standalone/drakedm
+++ b/perl-install/standalone/drakedm
@@ -21,6 +21,7 @@ use lib qw(/usr/lib/libDrakX);
 
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 use common;
+use any;
 use interactive;
 
 my $in = 'interactive'->vnew('su');
@@ -62,6 +63,9 @@ several different X sessions on your local machine at the same time.")),
         s/^\n//g;
         $_ .= "\nDISPLAYMANAGER=$dm\n" if eof;
     } $cfg_file;
+    if (any::running_window_manager()) {
+        $in->ask_okcancel('', N("The change is done, do you want to restart the dm service ?"), 1) and services::restart("dm");
+    }
 }
 
 $in->exit(0);