[REBOL] Re: view indirection
From: rebol665:ifrance at: 21-Nov-2001 13:37
Thanks Ingo
Another great answer from the rebol-list. I have just tested it. However
trying to understand more, I crash my windows with a probe. Here is my code.
The probe thing is in the guru-function.
Thanks again
Rebol []
guru-function: func [ s [string!] n [integer!] /local mc][
mc: get to-word join s n
; print probe mc <-- freeze my windows 2000
mc/data: true
show mc
]
view center-face layout [
banner "Test"
c1: check
c2: check
c3: check
c4: check
button "Test" [guru-function "c" 3]
button "that's all folks !" [unview]
]
----- Original Message -----
From: "Ingo Hohmann" <[ingo--2b1--de]>
To: <[rebol-list--rebol--com]>
Sent: Tuesday, November 20, 2001 7:43 PM
Subject: [REBOL] Re: view indirection
> Hi Patrick,
>
> Once upon a time Patrick Philipot spoketh thus:
> > set-check: func [n [integer!] /local code ][
> > code: copy ""
> > code: join join "set in c" n join " 'data true show c" n
> > print ["generated code ; " code]
> > do code
> > ]
> >
> > IT IS WORKING ! (the print is only for debugging purpose). However I am
not satisfied with this code. I'am looking for a more elegant way to do
that. Something like :