bonjour,
je veux afficher le continu d'un fichier dans un Scrolled
voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
 
my $text = $fenetre->Scrolled(
  "Text",
  -height     => 10,
  -wrap       => "none",
  -relief     => "solid",
  -background => "white",
  -scrollbars => "oe",
)->pack( -fill => "both", -expand => 1 );
 
$menu_ouvrir->command( -label   => 'Ouvrir', -command => \&open_file  ) ;
 
    sub open_file {
 
    my $filetypes =     [
            ['Drawing Files',    '.drg'],
            ['All files',    '*']
            ];
 
    my $select_file_full = $fenetre->getOpenFile(
                    -filetypes  => $filetypes,
 
  -initialdir => "/home/hp/Bureau/Master",
  -multiple   => 1,);
 tie *STDOUT, ref $text, $text;
print "$select_file_full";
 
 
 
 
    }
cependant aucun affichage !!!!


help plz !!