URL: https://linuxfr.org/forums/programmation-perl/posts/checkbutton
Title: Checkbutton
Authors: xusnet
Date: 2007年08月28日T17:51:28+02:00
Tags: 
Score: 0
Bonjour, 
 
J'ai un petit probleme 
Voila, mon programme ci-dessous cree une frame avec 4 boutons. 
Le premier (globale option) quand il est active, il active les 3 autres, sinon on active manuellement les 3 autres. 
Puis selon les choix, le bouton exec prend en compte les choix et ouvre des fenetres xterm selon les choix. 
 
Mais le probleme tous les choix sont manuels. 
Quelqu'un a une solution ? 
Je vous remercie d'avance. 
 
 
#!/usr/bin/perl -w 
use strict; 
use Tk; 
use Tk::FileSelect; 
use Tk::LabFrame; 
 
 
my $fenetre_planet = MainWindow->new(); 
$fenetre_planet->minsize(qw(250 150)); 
$fenetre_planet->title(" * * * LA PLANET"); 
# my ( $cadre_planet ) ; 
# $cadre_planet->LabFrame(-label=>PLANET)->pack(); 
my $lf2 = $fenetre_planet->Labelframe(qw/-pady 2 -padx 2/); 
$lf2->grid(qw/-row 0 -column 1 -pady 2m -padx 2m/); 
my $lfdummy2; 
my $cb; 
$cb = $lf2->Checkbutton( 
-text => 'Globale option', 
-variable => \$lfdummy2, 
-command => sub {&labelframe_buttons($lf2, $cb, \$lfdummy2)}, 
-padx => 0, 
); 
$lf2->configure(-labelwidget => $cb); 
 
foreach my $str (qw/Option1 Option2 Option3/) { 
$lf2->Checkbutton(-text => $str)->pack(qw/-side top -fill x -pady 2/); 
} 
 
# &labelframe_buttons($lf2, $cb, \$lfdummy2); 
#$fenetre_planet->Button( 
# -text => 'Exec', 
# -command => sub { exit })->place(-relx => 0.85, -rely => 0.5); 
$fenetre_planet->gridColumnconfigure([0, 1], -weight => 1); 
 
MainLoop;
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://linuxfr.org/forums/programmation-perl/posts/checkbutton.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://linuxfr.org/forums/programmation-perl/posts/checkbutton.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>