REBOL [title: "Chris's Desktop Test"]

do load-thru/update http://www.ross-gill.com/r/field-style.r

context [
    i-skin: load http://www.ross-gill.com/r/view-skin-256.png
    i-panel: load http://www.ross-gill.com/r/panel-teal.png
    i-folder: load http://www.ross-gill.com/r/folder-shadow.png
    i-default: load http://www.ross-gill.com/r/default-shadow.png

    
    dtop-tools: layout [
        across origin 0 space 5
        vtext bold "Location:" field 140 "World!" btn "Go!"
    ]
    dtop-tools: make dtop-tools [
        offset: 80x7 color: none
    ]
    my-face: make face [edge: none color: none]
    win: make my-face [size: 500x300 image: i-skin effect: [extend 215x60]]
    panel: make my-face [offset: 0x60 size: 81x216 image: i-panel effect: [tile]]
    folder: make my-face [offset: 16x76 size: 64x64 image: i-folder]
    icon: make folder [offset: 16x128 image: i-default]
    win/pane: reduce [dtop-tools panel folder icon]

    resize: does [panel/size/y: win/size/y - 84 show win]
    insert-event-func [switch event/type [resize [resize]] event]

    view/options center-face win [resize min-size 500x300]
]