path: root/docs/interactive/wait_message

#!/usr/bin/perl
# Yves Duret <yduret at mandrakesoft.com>
# license: GPL

use lib qw(/usr/lib/libDrakX);
use interactive;

my $in = 'interactive'->vnew(undef, 'default');
my $wait = $in->wait_message('wainting title', _("Moving files to the new partition"));
sleep(3);
$wait->set(_("Removing"));
sleep(3);
$in->exit(0);