Show how to drop loose faces and generate a layout from them.

gui-droppper.red

Red [
	Purpose: "Show how to drop faces to make a GUI and save it."
]

spec: copy []

btn-pos: 700x10

n: 0

view/options [
	size 800x600
	at btn-pos
	btn: button "Button" loose on-drop [
		n: n + 1
		name: append copy "Button " n
		p: face/offset
		repend spec ['at p 'button name []]
		repend face/parent/draw ['box p p + face/size 'text p + 4x5 name]
		new-line find/last spec 'at on
		print mold spec
		btn/offset: btn-pos
	]
][draw: []]

view spec