Discussion :

[issoram]

Salut,

Ben, tout est dans le titre .

Est possible de rediriger la sortie standard vers un widget text?

Merci d'avance

[djibril]

Que veux tu faire à vrai dire?
Si tu veux afficher des données dans un widget text au lieu de faire print STDOUT, oui c'est possible.
Il te suffit de créer le widget text et d'y faire tes insert.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $WidgetText= $Widget->Scrolled( "Text", 
  -scrollbars => "oe",
)->pack();
 $WidgetText->insert( "end", "Bonjour \n\n" );
 $WidgetText->insert( "end", "Exemple d'affichage\n\n" );

[issoram]

Je voulais afficher dans un widget text des résultats d'un programme que je ne pouvais modifier et qui écrivait sur la sortie standard.

Merci quand même

J'ai finalement trouvé la réponse à ce que je voulais faire:

$txt = $stxt->Text()->pack();
tie *STDOUT, 'Tk::Text', $txt;

[djibril]

merci pour ta solution