From 68cb104a88ae6fef8298acab166dccd464d170b7 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Tue, 29 Jan 2002 16:13:04 +0000
Subject: added some snipet coe for example

---
 docs/interactive/wait_message | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 docs/interactive/wait_message

(limited to 'docs/interactive/wait_message')

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);
-- 
cgit v1.2.1