user-interface - 以 Red 语言打印所有 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

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