[REBOL] Re: Weirdness with Request boxes

From: rotenca:telvia:it at: 5-Feb-2002 12:00

Hi Sunanda,

- Are not modal for other modal panels.
- Someone said some time ago they are buggy.
- Open modal faces are listed in system/view/pop-list which is a block
- The active modal face is in system/view/pop-face

The RT code which use them at every event:

system/view/wake-event: func [port /local event no-btn][
    event: pick port 1
    if none? event [
        if debug [print "Event port awoke, but no event was present."]
        return false
    ]
    either not pop-face [
        do event
        empty? screen-face/pane
    ] [
        either any [pop-face = event/face within? event/offset win-offset?
pop-face pop-face/size] [
            no-btn: false
            if block? get in pop-face 'pane [
                no-btn: foreach item pop-face/pane [if get in item 'action
[break/return false] true]
            ]
            if any [all [event/type = 'up no-btn] event/type = 'close]
[hide-popup]
            do event
        ] [
            if pop-face/action [
                if not find [move time] event/type [hide-popup]
                do event
            ]
        ]
        none? find pop-list pop-face
    ]
]

---
Ciao
Romano

1 · [2] · 3 · 4 · 5 · 6 · 7 · See whole thread