REBOL 布局：如何自动创建布局词 - 词没有上下文？

Question

使用 REBOL/View 2.7.8 核心，我想通过自动将单词分配给各种布局项来预先准备视图布局，如下例所示。而不是

prepared-view: [across 
                cb1: check 
                label "Checkbox 1"
                cb2: check
                label "Checkbox 2"
                cb3: check
                label "Checkbox 3"
                cb4: check
                label "Checkbox 4"
                ]
    view layout prepared-view

因此我希望自动创建 cb1 到 cb5 的单词，例如：

prepared-view2: [ across ]
    for i 1 4 1 [
        cbi: join "cb" i
        cbi: join cbi ":"
        cbi: join cbi " check"
        append prepared-view2 to-block cbi
        append prepared-view2 [
        label ]
        append prepared-view2 to-string join "Checkbox " i 
        ]
    view layout prepared-view2

但是，虽然 difference prepared-view prepared-view2 在被解析的块中显示没有差异 (== [])，但第二个脚本会导致错误：

    ** Script Error: cb1 word has no context
    ** Where: forever
    ** Near: new/var: bind to-word :var :var

我花了几个小时试图理解为什么，我认为新词需要以某种方式绑定到特定上下文，但我还没有找到解决问题的方法。

我需要做什么？

Answer 1

bind prepared-view2 'view  
view layout prepared-view2

创建正确的绑定。

还有另一种动态创建布局的方法

>> l: [ across ]
== [across]
>> append l to-set-word 'check
== [across check:]
>> append l 'check
== [across check: check]
>> append l "test"
== [across check: check "test"]
>> view layout l

然后您可以使用循环创建不同的变量以添加到您的布局中。

Answer 2

当您使用 TO-BLOCK 将字符串转换为块时，这是一个低级操作，不会通过 "ordinary" 绑定到 "default" 上下文。所有单词将被解绑：

>> x: 10      
== 10

>> code: to-block "print [x]"
== [print [x]]

>> do code
** Script Error: print word has no context
** Where: halt-view
** Near: print [x]

因此，当您想在运行时从原始字符串构建代码时，其查找将起作用，一种选择是使用 LOAD，它会做一些默认的事情，这可能适用于某些代码 (加载程序是如何为您运行来自源的代码创建绑定的）:

>> x: 10
== 10

>> code: load "print [x]"
== [print [x]]

>> do code
10

或者您可以明确命名 contexts/objects（或通过绑定到该上下文的示例词）并使用 BIND。

REBOL 布局：如何自动创建布局词 - 词没有上下文？

REBOL layout: How to create layout words automatically - word has no context?

rebol

rebol3

rebol2