Coding - Sélection d'un fichier image (Rebol/View)

REBOL 
 [ 
  Sujet: "Sélection d'une image"
  Auteur: "RebolZone"
  Version: 1.0.0
  Commentaires: "Nécessite Rebol/View"
  ]

;Création de la fenêtre
wfen1: layout [
		
	;Affichage du fond
	backdrop effect[color gradient 38.102.130 177.223.247]
	
	;Affichage logo
	image http://rebolzone.free.fr/reb/rbzonelogomin.jpg
		
	button "Ouvrir" [
		;Selection des images
		images: request-file/filter [*.gif *.jpg *.bmp]
		if not none? images [
			;pour chaque image sélectionnée, nouvelle fenêtre
			foreach img images [
				view/new layout [
					backdrop 255.255.255
					image img
				]	
			]
		]
						
	]
	
	button "Fermer" [ 
		quit
	]
] 

;Affichage de la fenêtre
view/title wFen1 "RebolZone : Sélection d'une image"

Commentaires : Cet exemple utilise la fonction request-file permettant de sélectionner un fichier.