Hi Yvan, try l-actor-block: copy/deep actor-block
Yvan wrote: > Hello, > > I like to thank the person who told me to read the sources and to use > do-events. Unfortunately I don't remember who it was. > > Now the function works but it doest something that it shouldn,t. Here aga= > in > the basic idea. > > > What it should do is the following: > > 1. I have a block a with a string in it > 2. Edit-ActorRole should open a form with the value of the string in bloc= > k a > and let the user edit it if he wants. > 3. The edited string should be returned to block b, letting block a = > > untouched > > Part 3 does not work > > > for example: > > a: ["dada"] > b: Edit-ActorRole a > > but the value of a is also changed and this should not be, > > > > >>> b >>> > =3D=3D [["Yvan"]] ; this is good, the value Ichanged it in the form > > > >>> a >>> > =3D=3D ["Yvan"] ; this should not be = > > > > here the code. > > > REBOL [] > > > Edit-ActorRole: func [ actor-block [block!] > /local l-act-role-block = > > l-actor-block > ] = > > [ > l-act-role-block: copy [] > ; I use the copy function to be sure not to use a pointer. > l-actor-block: copy actor-block > = > > > if (l-actor-block/1 =3D none) [append l-actor-block ""] > Formular: view/new layout > [ > text "Actor 1:" Fact1: field l-actor-block/1 > button #"^M""OK" = > > [ > l-actor-block: copy [] > if not (Fact1/text =3D "") [append l-actor-block Fact1/text] = > > append/only l-act-role-block l-actor-block > unview > ] > ] > do-events; > return l-act-role-block > ] = > > > > > > > > Mit freundlichen Gr=FCssen > Yvan = > > -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
