added some snipet coe for example

1 files changed, 13 insertions, 0 deletions

diff --git a/docs/interactive/wait_message b/docs/interactive/wait_message
new file mode 100755
index 000000000..0caec4471
--- /dev/null
+++ b/docs/interactive/wait_message
@@ -0,0 +1,13 @@
+#!/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);