REBOL [
    Title: "Icons List"
    Date:  8-Nov-2012
    Author: "Christopher Ross-Gill"
    Home: http://stackoverflow.com/questions/13300097/adding-image-links-to-current-layout-rebol
]

icons: [
    http://reb4.me/r/html-document.png
    http://reb4.me/r/pdf-document.png
    http://reb4.me/r/excel-document.png
    http://reb4.me/r/word-document.png
    http://reb4.me/r/zip-document.png
]


view center-face layout [
    lst: list 48x240 edge none [
        image 48x48 [if face/data [set-face msg form face/data]]
    ] supply [
        either img: pick icons count [
            face/data: img
            face/image: load-image img
        ][
            face/data: face/image: none
        ]
    ]

    return

    msg: txt bold 240

    btn "Random" [
        icons: random icons
        show lst
    ]
]