Tile 扩展是 ActiveTcl 安装后自带的，在这儿先介绍如何使用外部主题。把主题文件的文件夹 keramik 复制到当前目录的 themes 子目录下，然后编辑 demo.tcl 内容如下：

lappend auto_path [file join [file dirname [info script]] themes]
package require tile
package require tile::theme::keramik

style theme use keramik

ttk::button .b -text "退出" -command {exit}
pack .b

使用 Tile 扩展自带的 Windows XP 主题（Windows only）：
package require tile

style theme use xpnative

ttk::button .b "退出" -command {exit}
pack .b

使用 Tile 扩展自带的 Aqua 主题（Mac OS X only）：
package require tile

style theme use aqua

ttk::button .b "退出" -command {exit}
pack .b


WIKI  页：http://wiki.tcl.tk/11075

官方站点：Tile: an improved themeing engine for Tk