用红色语言打印所有GUI元素的文本

Question

我正在尝试在以下代码中打印出所有GUI元素的文本：

mochila

 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

它可以正常运行而没有任何错误，并且 sentlist: ["A" "B" "C"] main: function [slist] [ view collect [ repeat i length? slist [ keep compose [ text (slist/:i) field "" return ]] keep [button "Printall" [ repeat i (2 * length? slist)[ print face/parent/pane/(i)/text ]]]]] (main sentlist) 元素'文本被正确打印出来，但是对于text，每个字段只打印出最后一个字段的条目。问题在哪里以及如何纠正？谢谢你的帮助。

Answer 1

在您的规范field ""中，为每个字段重复使用相同的字符串。更改一个字段会更改每个字段的文本（可能出于效率原因，这不会反映在GUI中）。您可以将行更改为field (copy "")以提供唯一字符串。