[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
window inits help --- suggestion
Date: Wed, 12 Sep 90 18:56 EDT
From: barmar@Think.COM (Barry Margolin)
Date: Wed, 12 Sep 90 16:25 EDT
From: pan@Athena.Pangaro.Dialnet.Symbolics.Com (Paul Pangaro)
Date: Wed, 12 Sep 90 15:31:47 EDT
From: sims@starbase.MITRE.ORG (Jim Sims)
Is there a way to force ANY windows that get created after booting
(forever!) to be initialized with :deexposed-typeout-action :permit?
Seems like a trivial thing, but...
Nothing is trivial that has to be done twice:
(loop for (name window) in (tv:selectable-windows tv:main-screen)
do (send-if-handles window :set-deexposed-typeout-action :permit)
(send-if-handles window :set-deexposed-typein-action :notify)
(send-if-handles window :set-more-p nil))
That only affects windows that exist at the time you run it. He wants
to change the default for future windows as well.
Some users here use a patch that does this specifically for Terminal
windows, since this is generally the most annoying case (if you start a
program that produces continuous output in a terminal window, and then
bury the window, you get an immediate output notification, and
eventually the network connection is likely to block). They have a
version of the defflavor for TELNET:NVT-WINDOW that specifies the
appropriate initial value for TV:DEEXPOSED-TYPEOUT-ACTION. The problem
with this is that the flavor definition has changed with every release
(and most ECOs, as well), so this patch needs to be updated each time.
Its also annoying in listener windows. Try
(si:allow-redefinition 'dynamic-lisp-listener 'defflavor)
(defflavor dynamic-lisp-listener () (tv:listener-mixin dynamic-window)
:permit :margin-components *lisp-listener-margin-components*))