REBOL []

;repertoire des images
path: %./

image-list: []
; construction de la liste
foreach image read path [
	if find ["png" "bmp" "gif" "jpeg"] last parse image "." [
		append/only image-list reduce [image form image]
	]
]


view layout [
	vh2 "Images:"
	list 54x450 [
		origin 0 space 0
		below
		image 50x50 [print txt/text]
		txt: text blue 50
	] data image-list 

]
halt

rebol []

dir: request-file/only
if none? dir [quit]
dir: first split-path dir

; Est-ce une image ? Oui si l'extension est bonne
image?: func [file [file!]] [
	found? find [%.jpg %.gif %.png %.bmp] find/last file #"."
]


cpt: 0
make-button-panel: func [dir /local lay dir-f emit] [
	; le block que l'on créé, avec le style de bouton par défaut
	lay: copy [
		origin 4x4 space 4x4 across
		style but button 70x50
	]
	; petite fonction utilitaire pour ajouter au layout
	emit: func [blk] [
		append lay compose/deep blk
	]
	
	; parcours des fichiers
	foreach f read dir [

		dir-f: join dir f
		; c'est un répertoire : récursion dans une nouvelle fenêtre si on clic
		either dir? dir-f [
			emit [but (form f) [view/new layout make-button-panel (dir-f)]]
		] [
			; c'est une image
			either image? f [
				emit [but (form f) (dir-f) [print (dir-f)]]
			] [
				; c'est autre chose
				emit [but (form f)]
			]
		]
		; on met pas plus de 10 boutons par ligne
		cpt: cpt + 1
		if 0 = (cpt // 10) [emit [return]]
	]
	lay
]

view layout make-button-panel dir

...
			; c'est une image
			either image? f [
				; réduction de l'image au format icone (pour sauver de la mémoire)
				img: to-image make get-style 'image [offset: 0x0 image: load dir-f size: 70x50]
				
				emit [but (form f) (img) [print (dir-f)]]
			] [
				; c'est autre chose
				emit [but (form f)]
			]
...