標準で以下のテーマが用意されています。(バージョン0.7.3)
但し、プラットフォームによってはサポートしていないテーマもあります。
| テーマ | 説明 |
|---|---|
| classic | Motifスタイル |
| default | X11スタイル |
| alt | GTK+のデフォルト・スタイル |
| clam | Gnomeスタイル |
| winnative | Windowsスタイル |
| xpnative | Windows XPスタイル |
| step | NeXTStepスタイル |
| aqua | MacOS Xスタイル |
package require tile
tile::setTheme xpnative
pack [tbutton .btn -text Button]
pack [tlistbox .lst]
foreach name [tile::availableThemes] {
.lst insert end $name
}
.lst selection set [lsearch [tile::availableThemes] $::tile::currentTheme]
|
←Windows XPでの実行例
xpnativeスタイルを使うとこんなに美しくなります。
また、TileパッケージにはTkにはないcombobox,notebook,treeview,progressbarのWidgetがあります。
package require tile
tile::setTheme xpnative
wm geometry . 240x267
pack [tlabelframe .f1 -text Widgets] -padx 3 -pady 3 -fill both
pack [tbutton .b -text Button] -in .f1 -pady 3
pack [tcheckbutton .cb -text CheckButton] -in .f1 -pady 3
pack [tradiobutton .rb -text RadioButton] -in .f1 -pady 3
pack [tframe .f2] -in .f1 -pady 3
tlabel .lcombo -text {ComboBox: }
tcombobox .combo
pack .lcombo .combo -side left -in .f2
.combo insert end "選択してください"
pack [tframe .f3] -in .f1 -pady 3
tlabel .lpb -text {ProgressBar: }
tprogressbar .pb -maximum 10 -value 3
pack .lpb .pb -side left -in .f3
pack [tnotebook .nb] -in .f1 -pady 3 -fill both
ttk::treeview .tree -show tree -height 2
set parent [.tree insert {} end -text Parent -open 1]
.tree insert $parent end -text Child1
.tree insert $parent end -text Child2
ttk::treeview .listview -show headings -height 2 -columns [list col1 col2 col3]
.listview heading col1 -text Name
.listview heading col2 -text Age
.listview heading col3 -text Address
.listview insert {} end -id item1 -values "foo 20 xxx"
.listview insert {} end -id item2 -values "bar 30 xxx"
.listview column 0 -width 80
.listview column 1 -width 30
text .text -height 2
.text insert end {日本語表示やIMEでの日本語入力もできます。}
.nb add .tree -text Tree
.nb add .listview -text List
.nb add .text -text Text
|