Perl TK

Patrick Dupre pd520 at york.ac.uk
Tue Apr 21 14:37:49 UTC 2009


Hello,

Before, this application was working fine ! I am in Fedora 10 last
update (before means ~ 2 weeks !!)
Now, the file name is not anymore transfered and it never live the
widget !
I am also experiencing problem with JFileDialog

#!/usr/bin/perl -w

use Tk ;
use strict ;

  my $types = [
      ['Text Files',       ['.txt', '.text']],
      ['TCL Scripts',      '.tcl'           ],
      ['C Source Files',   '.c',      'TEXT'],
      ['GIF Files',        '.gif',          ],
      ['GIF Files',        '',        'GIFF'],
      ['All Files',        '*',             ],
  ];

my $main = MainWindow -> new () ;

my $filename = $main -> getOpenFile (-filetypes => $types) ;

if ($filename ne "") {
      # Open the file ...
   print $filename ;
  }


-- 
---
==========================================================================
  Patrick DUPRÉ                      |   |
  Department of Chemistry            |   |    Phone: (44)-(0)-1904-434384
  The University of York             |   |    Fax:   (44)-(0)-1904-432516
  Heslington                         |   |
  York YO10 5DD  United Kingdom      |   |    email: pd520 at york.ac.uk
==========================================================================


More information about the fedora-list mailing list