summaryrefslogtreecommitdiffstats
path: root/move
diff options
context:
space:
mode:
Diffstat (limited to 'move')
-rw-r--r--move/move.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/move/move.pm b/move/move.pm
index de99597ac..6f4f1b968 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -53,6 +53,15 @@ sub init {
sub install2::startMove {
my ($_o) = @_;
+
+ $::WizardWindow->destroy;
+ require ugtk2;
+ my $root = ugtk2::gtkroot();
+ my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file('/usr/share/mdk/screensaver/3.png');
+ my ($w, $h) = ($pixbuf->get_width, $pixbuf->get_height);
+ $root->draw_pixbuf(Gtk2::Gdk::GC->new($root), $pixbuf, 0, 0, ($::rootwidth - $w) / 2, ($::rootheight - $h)/2, $w, $h, 'none', 0, 0);
+ ugtk2::gtkflush();
+
run_program::run('adduser', 'mdk');
output('/var/run/console.lock', 'mdk');