perl/Tk script.
perl/Tk script. - Codes et scripts - Linux et OS Alternatifs
Marsh Posté le 03-10-2003 à 16:16:55
Il y a une section programmation qui contient une sous-cat perl :
http://forum.hardware.fr/forum1.ph [...] interface=
Message édité par fatypunk le 03-10-2003 à 16:17:08
Marsh Posté le 03-10-2003 à 16:29:32
http://www.lns.cornell.edu/~pvhp/ptk/doc/grid.htm
je crois qu' il faut utiliser la méthode grid à la place de pack.
m enfin je suis un peu noob en prog 
, mais regardes qd meme si ca peut t aider
Sujets relatifs:
- [script] connaitre son ip publique
- iade pour un pitit script :)
- [script]lancer directement en arriere plan
- [script]reconnection automatique
- script shell sous linux
- Simuler la souris et le clavier par un script...
- [Debian] Apache ki tue mes scripts perl au bout de 140s
- Changer les ACLs d'un fichier sous Windows depuis un script Linux
- [squidalyzer] probleme avec perl GD ! ca marche pas
- executer du perl sur un serveur linux
Marsh Posté le 01-10-2003 à 15:55:27
Bjr
j'ai un probleme en perl/Tk,
je veux faire une mini-appli qui se presente sous forme de deux colonnes
1de checkboutons 1de saisie
mais je ne comprend pas comment " placer " ces widgets.
au mieux j'ai sur une seule colonne alternativement checkbouton et saisie....
de l'aide serrai bienvenue merci...
si vous avez un exemple de ce style
2 colonnes
checkbouton/saisie (meme sur 3lignes) ca m'interesse au plus haut point...
ou si vous savez m'expliquer comment faire...
parceque mon bouquin est trop mal fait sur ce sujet...
ou meme si vous avez un lien direct a cet information a me proposer...
dans les cas merci.....
J'espere que vous reponderez vite c'est +ou- urgent quand meme...
---------------------------------------------------------------
j'ai trouver une solution mais malpropre
en faisant un frame par ligne..
#!/usr/bin/perl -w
use Tk;
my $mw=MainWindow->new;
$mw->title("frequences ver 0.1" );
#creer un boutton pour quitter l'application
my $menu_bar=$mw->Frame(-background=>'gray')->
pack(-side=>'top',-fill=>'x');
my $file_mb=$menu_bar->Menubutton(-text=>'File',
-background=>'gray',
-activebackground=>'black',
-foreground=>'black',
-activeforeground=>'white'
)->
pack(-side=>'left');
$file_mb->command(-label=>'Exit',-activebackground=>'black',
-foreground=>'white',
-command=> sub { exit });
#cree les frames
my $f0=$mw->Frame(-background=>'blue')->pack(-side=>'top', -fill=>'x');
my $ck0=$f0->Checkbutton(-text=>"...." )->pack(-side=>'left');
my $sa0=$f0->Entry(-width=>20,-justify=>'center',-background=>'white')->pack(-side=>'right');
...
my $fa4=$mw->Frame(-background=>'blue')->pack(-side=>'top', -fill=>'x');
my $cka4=$fa4->Checkbutton(-text=>"...." )->pack(-side=>'left');
my $saa4=$fa4->Entry(-width=>20,-justify=>'center',-background=>'white')->pack(-side=>'right');
$mw->Label(-text=>".....",
-justify=>'center')->pack(-side=>'bottom');
MainLoop;
Si vous avez mieux à proposer ou meme la solution, un tableau peut etre ?
---------------
merci @+