在Rebol的
问题描述:
我试图创建布局创建布局由视图由@GrahamChiu在回答中描述的方式显示在REBOL layout: How to create layout words automatically - word has no context?:在Rebol的
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")
是没有得到之前评估被追加。这怎么可以纠正?
答
你忘撰写
对于Red
toappend: compose [across (to-set-word "chvar") check text "test" ]
mylist: []
foreach i toappend [append mylist i]
view layout mylist
为红不知道的标签,否则相同雷博尔