REBOL [
 
]
 
lay-outil-dessin: func [/local lay] [
	lay: [
		across space 0x0 origin 0x0
		style pal box 25x10
		style btn btn 62x20
		pad 4x5
		box 243x243 black 
		pad 0x5
		return
	]
	foreach col [white black white black white black white black white black] [
		append lay compose [pal (col)]
	]
	append lay [return]
	foreach col [black white black white black white black white black white] [
		append lay compose [pal (col)]
	]
	append lay [
		return
		btn "gros pixel"
		btn "petit pixel"
		btn "annuler"
		btn "effacer"
		return
		pad 15
		area 200x100
	]
	return lay
]
 
view/title layout lay-outil-dessin "Outil de dessin"