From 566af63a748fd3637b91ee12d3fa77425806e4d8 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Mon, 11 Jun 2001 16:02:16 +0000
Subject: updatedCVS:
 ----------------------------------------------------------------------

---
 transfugdrake.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'transfugdrake.pm')

diff --git a/transfugdrake.pm b/transfugdrake.pm
index 18c0a12..fd3123e 100644
--- a/transfugdrake.pm
+++ b/transfugdrake.pm
@@ -19,6 +19,7 @@ use common qw(:common :system :file);
 use interactive;
 use standalone;
 use log;
+use my_gtk qw(:helpers :wrappers :ask);
 #use c;
 use netconnect;
 use detect_devices;
@@ -63,6 +64,7 @@ _("Kick windows out of your life.
 
 The next step will be bringing back windows(c)(r)(tm) files"), 1) or quit_global($in, 0);
 
+
 #- **********************************
 #- * 2nd step: win files
 step_2:
@@ -88,7 +90,8 @@ Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or
 step_3:
 
  print "step3\n";
- $::direct or $in->ask_okcancel(_("Transfug"),
-			       _("Pas pour les pdm.
-Tes mails ils viennent d'ou ??"), 1) or quit_global($in, 0);
+#$::direct or
+$a=ask_file(_("Select file"));
+
+print "-->$a<--\n"
  
-- 
cgit v1.2.1