Tk - Méga Widgets
Les méga widgets incluent de nombreux widgets complexes qui sont souvent requis dans certaines applications Tk à grande échelle. La liste des méga widgets disponibles est indiquée ci-dessous -
N ° Sr. | Widget et description |
---|---|
1 | Dialogue Widget d'affichage des boîtes de dialogue. |
2 | Spinbox Widget qui permet aux utilisateurs de choisir des nombres. |
3 | Boîte combo Widget qui combine une entrée avec une liste de choix disponibles à l'utilisation. |
4 | Carnet Widget à onglets qui permet de basculer entre l'une des plusieurs pages, à l'aide d'un onglet d'index. |
5 | Barre de progression Widget pour fournir un retour visuel sur la progression d'une longue opération comme le téléchargement de fichiers. |
6 | Treeview Widget pour afficher et permettre de parcourir une hiérarchie d'éléments plus sous forme d'arborescence. |
sept | Barre de défilement Faire défiler les widgets sans texte ni widgets de canevas. |
8 | Échelle Mettez le widget à l'échelle pour choisir une valeur numérique à l'aide de curseurs |
Un exemple simple de Tk est montré ci-dessous en utilisant quelques méga widgets.
#!/usr/bin/wish
ttk::treeview .tree -columns "Creator Year" -displaycolumns "Year Creator"
.tree heading Creator -text "Creator" -anchor center
.tree heading Year -text "Year" -anchor center
pack .tree
.tree insert {} end -id Languages -text "Languages"
.tree insert Languages end -text C -values [list "Dennis Ritchie" "1990"]
proc scaleMe {mywidget scaleValue} {
$mywidget configure -length $scaleValue
}
pack [scale .s2 -from 100.0 -to 200.0 -length 100 -background yellow -borderwidth 5
-font{Helvetica -18 bold} -foreground red -width 40 -relief ridge -orien horizontal
-variable a -command "scaleMe .s2" ]
pack [ttk::progressbar .p1 -orient horizontal -length 200 -mode indeterminate -value 90]
pack [ttk::progressbar .p2 -orient horizontal -length 200 -mode determinate -variable a
-maximum 75 -value 20]
Lorsque nous exécutons le programme ci-dessus, nous obtiendrons la sortie suivante -