accès aux groupes de discussion, consultation et publication d'articles, recherche de "newsgroups"...
membres, identifiez-vous
é-mail Mot de passe
nouveau ? mot de passe oublié ?
Chargement... Chargement en cours...

Groupes français belges canadiens suisses internationaux Nétiquette
Échangez opinions et commentaires dans les forums de discussion.

scrolbare pour suite de chckbox

 [  Nouvelle Discussion Nouvelle discussion  |  Répondre au groupe Répondre au groupe  |  fr.comp.lang.tcl ] 

Retour : Accueil du site fr comp lang tcl   charte stats de ce groupe


  Sujet:   scrolbare pour suite de chckbox  
 De: cou...@coucou.com (Fabien)
 Groupes: fr.comp.lang.tcl
 Organisation: Guest of ProXad - France
 Date: 06. May 2008, 21:20:04
Bonsoir,

Je suis en train de faire un petit script qui ressemble a l'exemple ci 
dessous.

Dans mon script réel, j'ai +eurs dizaine de bouton, j'aurais donc voulu 
pouvoir les faire défiler via une barre sur le coté.

Après avoir cherché, je sais qu'il faut passer par un canvas, mais 
malgré de nombreux essai, je n'ai pas trouvé la bonne syntaxe.

Si quelqu'un pouvais me dire les modifi tion a faire pour pouvoir faire 
défiiler ces boutons.

Dans l'exemple on selectionne les boutous et cela erit le résultat dans 
un fuchier.

Merci d'avance,
Fabien



-------------------------------------


frame .top
pack configure .top -expand 1 -fill both -side top
frame .select
pack configure .select -side bottom

checkbutton  .select.bouton1 -text "Mon Bouton un" -variable bouton1var
pack configure .select.bouton1


checkbutton  .select.bouton2 -text "Mon Bouton deux" -variable bouton2var
pack configure .select.bouton2



checkbutton  .select.bouton3 -text "Mon Bouton trois" -variable bouton3var
pack configure .select.bouton3

frame .top.runbutton
pack configure .top.runbutton -expand 1 -fill both
button  .top.runbutton.executebutton -text "RUN" -command {

set fplist [open "Resultats.txt" w]

if {$bouton1var != 0} {
puts $fplist "bouton 1\n"
}

if {$bouton2var != 0} {
puts $fplist "bouton 2\n"
}

if {$bouton3var != 0} {
puts $fplist "bouton 3\n"
}
close $fplist
}
pack configure .top.runbutton.executebutton


DateSujet  Auteur
01.01.
o 
Groups Explorer contact votre avis comment ça marche? rechercher un groupe suggérer un groupe abuse accueil du site   Imprimer cette page   Envoyer cette page à un(e) ami(e)