I will do like this:
make-panel: func [a /local obj][
obj: construct append cp [panel: none] a
obj/panel: bind/copy a in obj 'self
obj
]
a: make-panel [t1: field 100 [print t1/text]]
b: make-panel [t1: field 100 [print t1/text]]
view layout [
panel a/panel
panel b/panel
btn "a" [print a/t1/text]
btn "b" [print b/t1/text]
]-- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
