View/flags demo, showing what window flags are available.

view-flags-demo.red

Red []

window-flags: [
	resize no-title no-border no-min no-max no-buttons modal popup
]
show-win-using-flags: func [flags [block!]][
	view/flags [backdrop sky button "OK" [unview]] flags
]
spec: [
	below
	text "You will see that not all flags combine well."
	button "View" [show-win-using-flags window-flags]
	
]
lit: func [value][to lit-word! value]
foreach flag window-flags [
	append spec compose/deep [
		check on (form flag) extra (lit flag) [alter window-flags (lit flag)]
	]
]
view spec