z26 - Source Code

sdgfgfdghfdh
Author: pobopo
File size: 1K
Return to index

REBOL [Title: "Plugin Ready" Version: 1.2.0]

vers: 1.2.46

up: false

view/new layout [
    origin 0
    box 200x40 "REBOL/Plugin Ready" effect [gradient 200.0.0 0.0.200] rate 10 feel [
        engage: func [f a e] [
            if a = 'time [
                f/effect/2: a: either up [f/effect/2 + 0.0.10 - 10.0.0][f/effect/2 - 0.0.10 + 10.0.0]
                f/effect/3: either up [f/effect/3 - 0.0.10 + 10.0.0][f/effect/3 + 0.0.10 - 10.0.0]
                if a/3 > 250 [up: false]
                if a/3 < 11 [up: true]
                show f
            ]
            if a = 'down [
                alert reform ["REBOL/Plugin ViewDLL Version" system/version]
            ]
        ]
    ]
]

if system/version < vers [
    if request reduce[
        rejoin [
            "You are using an older version of the REBOL/Plugin. You should be using version "
            vers " but it looks like you are using " system/version ". "
            "Click the help button and perform step 4 to reinstall."
        ]
        "Help"
        "Cancel"
    ][
        browse http://www.rebol.net/plugin/demos/problem.html
    ]
]

do-events