user-interface - 以红色语言打印出所有 GUI 元素的文本

Question

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

  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元素的文本被正确打印出来，但是fields对于每个字段，只有最后一个字段的条目被打印出来。问题出在哪里，如何纠正？谢谢你的帮助。

Answer 1

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