frame .mv wm title . "Animation in canvas" pack .mv canvas .mv.c pack .mv.c button .mv.c.but -text Credits -command displayInfo
下列 Tcl/Tk 命令向上述脚本添加:在画布中的 x,y 位置 218,153 为".mv.c.but"建立一个窗体。
.mv.c create window 218 153 -window .mv.c.but
执行这个脚本将见到: