主页 / 问题

问题[tcl]

Martin Hope
biomotor
Asked: 2022-04-12 17:47:23 +0800 CST
  • 0

任务：我想通过 call() 更改窗口框架 tk.Tk() highlightbackground 和 highlightcolor 的颜色。

原来：通过tcl改，但是不知道怎么用call……有什么指令吗？

发现如何使用：

#root.overrideredirect(1)
#root.after_idle(root.attributes, '-topmost', True)

root.call('wm', 'overrideredirect', '.', 1)
root.call('wm', 'attributes', '.', '-topmost', True)
tcl
Martin Hope
aleksandr barakin
Asked: 2020-07-14 08:46:19 +0800 CST
  • 0

期望程序（和库）的维基百科页面显示（页面右上角的信息块）：

用 Tcl 编写

但试图找到来源（如所述 - 在tcl语言中），可以找到的最大值（在官方提到的两个网站中的任何一个上：https ://sourceforge.net/projects/expect/和https:// core.tcl-lang.org/expect/dir?ci=tip ) 是c源。

承诺的“用 tcl 写的”在哪里？

这不是一问一答。我真的不知道答案。总的来说，我一直认为expect程序是用tcl编写的。

tcl
Martin Hope
aleksandr barakin
Asked: 2020-07-13 01:34:46 +0800 CST
  • 2

有一个功能：

% proc test {args} {llength $args}

如果您将两个参数传递给它，那么它将返回预期的数字二（参数的数量）：

% test x y
2

如果您将两个组件的列表传递给它，那么原则上它将返回一个：

% test [list x y]
1

很明显，在我自己的函数中，我可以处理这种情况并在列表中“爬升”，但是是否可以在不更改函数的情况下以某种方式将现有列表转换为一组参数？

这是一个不太抽象的例子：库函数file。有一个命令file split путь将传递的路径“解析”为单独的组件，并将它们作为列表返回：

% file split /x/y
/ x y

并且有一个“相反的”命令file join компоненты可以“组装”传递给它的组件的路径。如果将组件指定为单独的参数，它可以正常工作：

% file join / x y
/x/y

但是如果你传递一个列表，例如，由命令返回的列表，它就不起作用file split путь：

% file join [file split /x/y]
/ x y

如何将列表转换为一组参数？

tcl