[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

window inits help --- suggestion

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

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