REBOL [
    Title: "View a script (a file really)"
    Author: "Brett Handley"
    File: %view-script.r
    Date: 20-May-2001
]

; First the supporting code
if not value? 'scroll-face [do load-thru http://www.codeconscious.com/rebsite/rebol-library/standard-guis.r]

view-script: function [file][sf][
    sf: scroll-face/width layout [
        backdrop 120.120.255
        banner reform [second split-path file]
        text white as-is to-string read-thru file
    ] system/view/screen-face/size - 40x80 20
    sf/color: 120.120.255
    view/new center-face sf
]