perl/Tk script.

perl/Tk script. - Codes et scripts - Linux et OS Alternatifs

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..... :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 @+
Reply

Marsh Posté le 01-10-2003 à 15:55:27   

Reply

Marsh Posté le 03-10-2003 à 16:04:18    

alo ?


---------------
merci @+
Reply

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
Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed