Mailing List Archive: Re: Layout in more than one pane

[REBOL] Re: Layout in more than one pane

From: cyphre:seznam:cz at: 7-Nov-2001 16:59


Aha.The key won't work because of "find-key-face" VID mezanine-function:

here is fixed function replacement which solve the bug, I believe RT will
fix it in the next release ;)

--------------------snip--------------------
find-key-face: func [
            "Search faces to determine if keycode applies."
            face [object!] keycode [char! word!] /local w f result
        ][
            either all [
                w: in face 'keycode
                w: get w
                any [keycode = w all [block? w find w keycode]]
            ] [face] [
                w: in face 'pane
                either block? w: get w [
                    result: none
                    foreach f w [
                        if word? f [f: get f]; quick-fixed by Cyphre-use at
your own risk ;)
                        if all [object? f f: find-key-face f keycode]
[result: f break]
                    ]
                    result
                ] [
                    if object? :w [find-key-face w keycode]
                ]
            ]
        ]
-------------snip------------

Regards,

Cyphre