0

I am trying to create a layout to be shown by view in the manner described in answer by @GrahamChiu on 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

I later want to create a loop to add many such sets to layout.

The probe output is: 

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

However, the "chvar" is not getting set to chvar: and I am getting following error: 

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

Apparently, (to-set-word "chvar") is not getting evaluated before being appended. How can this be corrected?

rnso
  • 23,686
  • 25
  • 112
  • 234

1 Answers1

1

You forgot compose

For Red

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

as Red does not know label, otherwise same as in Rebol

sqlab
  • 6,412
  • 1
  • 14
  • 29