diff options
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" |