Invité de commande en Tk

Version imprimable

22/01/2010, 19h36
Perl53

Invité de commande en Tk

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

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:

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

24/01/2010, 18h17
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
24/01/2010, 18h29
djibril

ça n'a plus rien à voir avec ta première question là !!
24/01/2010, 19h39
Perl53

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