window inits help --- suggestion

[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...

    jim

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))


Note that this may make Mailer windows odd on hitting [Survey], I never tracked
that one down completely.