Мега виджеты включают в себя множество сложных виджетов, которые часто требуются в некоторых крупных приложениях Tk. Список доступных мега виджетов приведен ниже.
| Sr.No. | Виджет и описание |
|---|---|
| 1 | диалог
Виджет для отображения диалоговых окон. |
| 2 | со счётчиком
Виджет, который позволяет пользователям выбирать номера. |
| 3 | Поле со списком
Виджет, который сочетает в себе запись со списком вариантов, доступных для использования. |
| 4 | Ноутбук
Виджет с вкладками, который помогает переключаться между одной из нескольких страниц, используя вкладку указателя. |
| 5 | Индикатор
Виджет для визуальной обратной связи с ходом длительной операции, такой как загрузка файла. |
| 6 | В виде дерева
Виджет для отображения и позволяет просматривать иерархию элементов более в виде дерева. |
| 7 | Полоса прокрутки
Прокрутка виджетов без текстовых или холст виджетов. |
| 8 | Масштаб
Масштабируйте виджет, чтобы выбрать числовое значение с помощью ползунков. |
Виджет для отображения диалоговых окон.
Виджет, который позволяет пользователям выбирать номера.
Виджет, который сочетает в себе запись со списком вариантов, доступных для использования.
Виджет с вкладками, который помогает переключаться между одной из нескольких страниц, используя вкладку указателя.
Виджет для визуальной обратной связи с ходом длительной операции, такой как загрузка файла.
Виджет для отображения и позволяет просматривать иерархию элементов более в виде дерева.
Прокрутка виджетов без текстовых или холст виджетов.
Масштабируйте виджет, чтобы выбрать числовое значение с помощью ползунков.
Простой пример Tk показан ниже с использованием нескольких мега-виджетов.
#!/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]
Когда мы запустим вышеупомянутую программу, мы получим следующий вывод —