Discussion :

[Perl53]

Bonjour,
ayant un petit projet en tête, je voudrais savoir si il est possible d'insérer une fenêtre d'invité de commande dans un programme perl/tk ou alors de pouvoir en créer une nous même.
Voilà, une réponse soit sous linux (ubuntu) soit sous windows (vista) ne me dérange pas.
Merci

[V.G.T]

Bonjour,
tu peux essayer de manipuler un widget Tk::Text
perso en JS j'ai fait une fenetre de commande avec une div donc ça doit pouvoir ce faire en Tk.

un truc dans ce genre.

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
34
35
36
37
 
     use Tk;
use Tk::Text;
     $top = MainWindow->new();
my $main = $top -> Frame();
$main -> pack(-fill => 'both', -expand => 'yes');
 
my $rapport;
my $text = $main -> Scrolled
(
"Text",
-scrollbars => "osoe",
-exportselection => 'yes',
-relief => 'sunken',
-height => "12",
);
$text -> pack(-expand => 'yes', -fill=> 'both');
     $top->bind( '<Any-KeyPress>' => sub
     {
         my($c) = @_;
         my $e = $c->XEvent;
         my( $x, $y, $W, $K, $A ) = ( $e->x, $e->y, $e->K, $e->W, $e->A );
 
#Pour connaitre la touche presser
#affichage des codes dans la console
         print "  x = $x\n";
         print "  y = $y\n";
         print "  K = $K\n";
         print "  W = $W\n";
         print "  A = $A\n";
#si la touche entrée écrire toto
	if($W=~/Return/){$text->insert('end',"toto\n");}
     } );
     MainLoop();
 
 
__END__

--
http://vgt.fr

[Perl53]

en fait ce que je voudrais c'est pouvoir dans un widget, text par exemple, rentré un code perl, et ensuite, dans un autre widget, faire en sorte de récupérer la sortie de l'éxécution

[djibril]

ça n'a plus rien à voir avec ta première question là !!

[Perl53]

dsl je pensais que que ma première question suffirait pour résoudre mon problème