Question

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

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将字符串转换为块时，这是一个低级操作，不会通过“普通”绑定到“默认”上下文。所有单词都是未绑定的：

>> 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

或者您可以显式地命名上下文/对象（或通过绑定到该上下文的示例单词）并使用BIND。

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

2 个答案: