ltk 默认启动的是apple 系统的tk,版本低，不支持高清屏。
使用高清屏tk的方法：
1）去http://www.activestate.com 下载最新的 tcl/tk 可执行包
2) 在with-ltk 加入 *wish-pathname*。例如
(let ((ltk:*wish-pathname* "/usr/local/bin/wish8.6")) (ltk:with-ltk () ......
参考:
本文共 263 字，大约阅读时间需要 1 分钟。
ltk 默认启动的是apple 系统的tk,版本低，不支持高清屏。
使用高清屏tk的方法：
1）去http://www.activestate.com 下载最新的 tcl/tk 可执行包
2) 在with-ltk 加入 *wish-pathname*。例如
(let ((ltk:*wish-pathname* "/usr/local/bin/wish8.6")) (ltk:with-ltk () ......
参考:
转载于:https://my.oschina.net/ijitai/blog/675463