用Tkinter打造GUI开发工具（42）Tkinter与TCL/Tk混合编程
Tcl/Tk的GUI工具组，它是John Ousterhout在Scriptics公司支持下建立的Tcl/Tk图形接口。是由C语言编写的图形扩展库和模块，实现了类似Windows视窗的X视窗系统功能。由Steen Lumholt和Guido van Rossum撰写了Python的Tkinter模块，Tkinter模块利用了Tcl/Tk的C扩展库（_tkinter）。用Tkinter开发程序不需要关注Tcl/Tk的接口和实现，因此Tkinter作为独立的Python扩展模块看待，目前Tkinter成为Python的标准GUI库。也就是说官网下载的Python安装包已经包含有Tkinter库了。很多Python工具都建立在Tkinter库的基础上，例如：
Python IDLE，Turtle绘图库…等都是用Tkinter编写而成。
Python是解释脚本语言，TCL也是解释脚本语言，由于Tkinter库的存在，因此Python可间接支持TCL语言，可以运行TCL程序和TCL模块文件。
下面先看直接运行TCL程序的方法。

import tkinter as tk

#查看tkinter版本号
print('Tkinter版本:', tk.TkVersion)

#建立一个tcl的解释器
tcl = tk.Tcl()

#察看tcl版本号
print( 'Tcl版本:',tk.TclVersion)

#tcl语言脚本
tclcode='''
proc add {n m} {
    return [expr $n+$m]
}
'''
#执行tcl语言脚本
tcl.eval(tclcode)
#调用函数,tcl_str为返回值
tcl_str=tcl.eval('add 30 40')
#显示结果
print( tcl_str)

程序执行结果如下：

Tkinter版本: 8.6
Tcl版本: 8.6
70

如果要执行TCL模块文件，可以如下操作。
1、建立tcl程序文件

proc sayHello {} {
    return "Hello TCL world!"
}

proc add {num1 num2} {
	return [expr $num1 + $num2]
}

2、运行的Python代码如下：

import tkinter as tk

#建立一个tcl的解释器
tcl = tk.Tcl()

#导入tcl文件
tcl.eval('source tcltest.tcl')

#调用函数,tcl_str为返回值
tcl_str=tcl.eval('add 35  15')
print( tcl_str)

tcl_str=tcl.eval('sayHello')
print(tcl_str)

root=tk.Tk()
lb=tk.Label(root,text=tcl_str)
lb.pack()

运行结果如下：

50
Hello TCL world!

通过上面测试，我们可以说，Python中已经包含了2种语言。想学习Tcl语言的朋友可以用Python开发一个TCL学习工具了。

上面大家看到的不是重点，下面才是重点。
既然Tkinter建立在TCL/tk的基础上实现的，因此我们可以在程序中直接调用底层的TCL/tk脚本来开发Tkinter程序，也可以通过自编tcl控件模块来增强Tkinter的功能。
python的tcl的模块在python.exe执行文件所在目录下的“tcl”子目录中。
python的tcl的接口库“_tkinter.lib”在python.exe执行文件所在目录下的“libs”子目录中。
Tkinter调用TCL/tk库是通过“_tkinter.lib”库中的“tk.call”或“_tk.call”来实现的。
下面直接给出演示代码。

import tkinter as tk
#建立一个tcl的解释器
tcl = tk.Tcl()

#察看tcl版本号
print( 'Tcl版本:',tk.TclVersion)
#导入tcl文件
tcl.eval('source tcltest.tcl')
#调用函数,tcl_str为返回值
tcl_str=tcl.eval('add 35  15')
print( tcl_str)

tcl_str=tcl.eval('sayHello')
print(tcl_str)

#建立Tkinter主窗口
root=tk.Tk()
lb=tk.Label(root,text=tcl_str)
lb.pack()

lb2=tk.Label(root,text="标签2")
root.tk.call('pack','configure', lb2._w)  #lb2.pack()
root.tk.call('update')  #root.update()


height=root.tk.call('winfo', 'height', root._w) #获取主窗口高度
print('root窗口高度:',height)

root.mainloop()

程序执行结果：

Tcl版本: 8.6
50
Hello TCL world!
root窗口高度: 46

显示图形如下：

通过这篇文章介绍，是不是感觉Tkinter深度开发的潜力很大。

可以通过下面方式与我交流：
#独狼荷蒲qq:2775205
#通通小白python量化群:524949939
#电话微信:18578755056
#通通小白python量化群:524949939
#tkinter,pyqt,gui,Python学习群：647866213