[REBOL] copy versus copy/deep Re(2):
From: anton:globalcenter:au at: 30-Aug-2000 4:35
Hi,
Here is a quick program to demonstrate this within a VID window:
rebol[
title: "Copy vs Copy/Deep"
]
show-all: does [
show [xf yf z1f z2f]
]
lay: layout [
text "click each of the buttons in turn"
across
text "x" xf: field xc: button "x: [1 2 3]" [do xc/text xf/text: x show-all]
return
text "y" yf: field yc: button "y: reduce [x]" [do yc/text yf/text: y
show-all] return
text "z1" z1f: field z1c: button "z1: copy/deep y" [do z1c/text z1f/text: z1
show-all] return
text "z2" z2f: field z2c: button "z2: copy y" [do z2c/text z2f/text: z2
show-all] return
button "remove x" [remove x show-all] text "(remove the first element from x)"
]
view/title lay "copy vs copy/deep"
Anton.
[galtbarber--MailAndNews--com] wrote: