I actually think that is by design Gabriele.  I think that is why we have
center-face to give us the same positioning that inform does.  Inform is
useful in this manner as we can ensure that inform is useful for providing a
warning message or to ensure that no other window receives events until the
inform windows is closed/unviewed.

Paul Tretter

----- Original Message -----
From: "Gabriele Santilli" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, October 10, 2002 9:48 AM
Subject: [REBOL] BUG in INFORM


> This  is  probably  a  known  issue,  I hope resubmitting is not a
> problem.
>
> BUG: INFORM does not set the default window feel
>
> EXAMPLE:
>
> If  you  wonder  why  your requestors don't respond to keystrokes,
> this  is  the  reason.  REQUEST  assigns the #"Y" key to the "yes"
> button, #"N" to the "no" button and ESC (#"^(1B)") to the "cancel"
> button;  however, these keys don't work (except for ESC that works
> because it is handled separately in SYSTEM/VIEW/WAKE-EVENT).
>
> >> system/product
> == View
> >> system/version
> == 1.2.8.3.1
> >> request "Hello there."
>
> (try pressing Y or N)
>
> REASON:
>
> Keys  are  handled  in  SYSTEM/VIEW/WINDOW-FEEL; the VIEW function
> sets the feel of the window to that, but INFORM doesn't.
>
> FIX:
>
> inform: func [
>     {Display an exclusive focus panel for alerts, dialogs, and
requestors.}
>     panel [object!]
>     /offset where [pair!] "Offset of panel"
>     /title ttl [string!] "Dialog window title"
>     /timeout time
> ][
>     panel/text: copy any [ttl "Dialog"]
>     panel/offset: either offset [where] [system/view/screen-face/size -
panel/size / 2]
>     panel/feel: system/view/window-feel ; <<-----
>     show-popup panel
>     either time [wait time] [do-events]
> ]
>
> Also,  I'd  suggest  to  change the keys in REQUEST to be #"y" and
> #"n"  instead  of  #"Y"  and #"N" that require pressing shift. The
> RETURN  key would be a nice synonym for #"y" (at least in the case
> of REQUEST/OK).
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to