diff options
| author | Yves Duret <yduret@mandriva.com> | 2001-06-11 16:02:16 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2001-06-11 16:02:16 +0000 |
| commit | 566af63a748fd3637b91ee12d3fa77425806e4d8 (patch) | |
| tree | ded1b7728a83b5bddc791ef31528e1eb246ffe7b /transfugdrake.pm | |
| parent | 15e8355f51d30245e1bcdd88044c2f0371542f5b (diff) | |
| download | transfugdrake-566af63a748fd3637b91ee12d3fa77425806e4d8.tar transfugdrake-566af63a748fd3637b91ee12d3fa77425806e4d8.tar.gz transfugdrake-566af63a748fd3637b91ee12d3fa77425806e4d8.tar.bz2 transfugdrake-566af63a748fd3637b91ee12d3fa77425806e4d8.tar.xz transfugdrake-566af63a748fd3637b91ee12d3fa77425806e4d8.zip | |
updatedCVS: ----------------------------------------------------------------------
Diffstat (limited to 'transfugdrake.pm')
| -rw-r--r-- | transfugdrake.pm | 9 |
1 files changed, 6 insertions, 3 deletions
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" |