Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2822 connectés 

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

perl/Tk script.

n°332824
francoispg​p
Posté le 01-10-2003 à 15:55:27  profilanswer
 

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..... :jap:  
 
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 @+
mood
Publicité
Posté le 01-10-2003 à 15:55:27  profilanswer
 

n°333701
francoispg​p
Posté le 03-10-2003 à 16:04:18  profilanswer
 

alo ?


---------------
merci @+
n°333703
fatypunk
Java bien !
Posté le 03-10-2003 à 16:16:55  profilanswer
 

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
n°333710
Profil sup​primé
Posté le 03-10-2003 à 16:29:32  answer
 

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 :D , mais regardes qd meme si ca peut t aider


Aller à :
Ajouter une réponse
 

Sujets relatifs
[script] connaitre son ip publiqueiade pour un pitit script :)
[script]lancer directement en arriere plan[script]reconnection automatique
script shell sous linuxSimuler la souris et le clavier par un script...
[Debian] Apache ki tue mes scripts perl au bout de 140sChanger les ACLs d'un fichier sous Windows depuis un script Linux
[squidalyzer] probleme avec perl GD ! ca marche pasexecuter du perl sur un serveur linux
Plus de sujets relatifs à : perl/Tk script.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR