Vid Sytle Documentation - Source Code

A simple Vid Style Documentation Browser
Author: Marco
File size: 1K
Return to index

rebol []
item: style-names: extract svv/vid-styles 2
forall item [change item to-string first item]
view l: layout/size [
    space 20x0 across
    title "Vid Style Documentation" return
    x: text-list 200 data style-names [
        doc: get in select svv/vid-styles to-word first x/picked 'doc
        doc-info/text: doc/info
        doc-string/text: doc/string
        doc-image/text: doc/image
        doc-logic/text: doc/logic
        doc-integer/text: doc/integer
        doc-pair/text: doc/pair
        doc-tuple/text: doc/tuple
        doc-file/text: doc/file
        doc-url/text: doc/url
        doc-decimal/text: doc/decimal
        doc-time/text: doc/time
        doc-block/text: doc/block
        doc-keywords/text: doc/keywords
        show l
    ]
    guide
    label 70 "Infos :" doc-info: text 300 return
    label 70 "String :" doc-string: text 300 return
    label 70 "Image :" doc-image: text 300 return
    label 70 "Logic :" doc-Logic: text 300 return
    label 70 "Integer :" doc-integer: text 300 return
    label 70 "Pair :" doc-pair: text 300 return
    label 70 "Tuple :" doc-tuple: text 300 return
    label 70 "File :" doc-file: text 300 return
    label 70 "Url :" doc-url: text 300 return
    label 70 "Decimal :" doc-decimal: text 300 return
    label 70 "Time :" doc-time: text 300 return
    label 70 "Block :" doc-block: text 300 return
    label 70 "Keywords :" doc-keywords: text 300 return
] 640x400