GUI dropper 2 (drop real faces)

gui-dropper-2.red

Red [
	Purpose: "Show how to drop (real) faces to make a GUI."
]

btn-pos: 700x10

n: 0

view [
	size 800x600
	at btn-pos
	btn: button "Button" loose on-drop [
		n: n + 1
		name: append copy "Button " n
		p: face/offset
		new-face: make face! [
			type: 'button 
			offset: p 
			text: name 
			size: btn/size
			options: [drag-on: 'down]
		    actors: make object! [
		        on-click: func [face [object!] event [event! none!]][
		        	print face/text
		        ]
		    ]
 		]
		append face/parent/pane new-face
;		print mold face/parent/pane
		btn/offset: btn-pos
	]
]