Simple drag demo

REBOL []

;print ""

stylize [
	dragger: box [
		facets: [
			init-size: 100x100
			max-size: 100x100
		]
		actors: [
			on-click: [
				if arg/type = 'down [
					return init-drag face arg/offset
				]
				if arg/type = 'up [
				]
			]
			on-drag: [
				face/gob/offset: arg/offset - arg/base
				show face/gob
			]
		]
	]
]

view [
	hpanel 200x200 red [
		dragger
	] on-drop [
		append-content face arg/face
		return true
	]
	hpanel 200x200 blue on-drop [
		append-content face arg/face
		return true
	]
]