Rebol View layout compose, seek minima notation

I attempt to break down a Rebol View into a Forth style 'divide and conquer' word set, to optimize reading, organize, make business logic stand out. 1) Is there a way to simplify the following code ? --R E B O L [] -- --Result: "Test" -- --field1.Process: [ -----alert join "You typed: " -----Result: field1/text -----] -- --field1.Initialize: [do [field1/text: Result]] -- --field1.Declare: compose/deep [ ----field1: field ----[(field1.Process)] ----(field1.Initialize) ---] -- --block: -compose [ ----(field1.Declare) ----field ----field ----] -- --view layout (block) 2) Layout block structure being -field: field-type [field-process] -[field-initialize] I seek to optimize notation -field1.Process: [] -field1.Initialize: [do []] -field1.Declare: compose/deep [ ---field1: field ---[(field1.Process)] ---(field1.Initialize) --] towards minima -field1.Process: [] -field1.Initialize: [] - -field1.Declare: compose/deep [ ---field1: field ---[field1.Process] - -[field1.Initialize] --]

Due to this question, there is now a rebol tag set up on CodeReview StackExchange. Check it out: http://codereview.stackexchange.com/questions/53794/ I added my $0.02

Based on what I think you intend, you could use 'style in the GUI layout: R E B O L [] result: "Test" field1.Process: [ alert join "You typed: " Result: face/text ] block: compose [ style field1 field (result) field1.Process field1 field1 ] view layout block Do you intend for 'result to be global? Some more info about what you're actually intending (not just a generalized model) may help me answer your specific question more clearly.