DEF ColorSelector Script {

    field    SFColor onColor  1.0 1.0 1.0

    field    SFColor offColor 0.0 0.0 0.0

    eventIn  SFBool  set_selection

    eventOut SFColor color_changed



    url "vrmlscript:

        function set_selection( b, ts ) {

            if ( b == TRUE ) color_changed = onColor;

            else             color_changed = offColor;

        }"

}