在Rebol的

Question

我试图创建布局创建布局由视图由@GrahamChiu在回答中描述的方式显示在REBOL layout: How to create layout words automatically - word has no context?：

REBOL [] 

; WANT TO CREATE A BLOCK: [across chvar: check label "test"] , so that I can run: 
; view layout [across chvar: check label "test"] 

toappend: [across (to-set-word "chvar") 'check 'label "test" ] 
probe toappend 

mylist: [] 
foreach i toappend [append mylist i] 
probe mylist 

view layout mylist 

后来我想创建一个循环来添加很多这样的设置为布局。

的probe输出是：

[across (to-set-word "chvar") 'check 'label "test"] 
[across to-set-word "chvar" check label "test"] 

然而， “chvar” 不获取设置为chvar:和我收到以下错误：

Invalid args: [to-set-word "chvar" check label "test"] 

显然，(to-set-word "chvar")是没有得到之前评估被追加。这怎么可以纠正？

Answer 1

你忘撰写

对于Red

toappend: compose [across (to-set-word "chvar") check text "test" ] 
mylist: [] 
foreach i toappend [append mylist i] 
view layout mylist 

为红不知道的标签，否则相同雷博尔