[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)
  (:default-init-plist :deexposed-typeout-action
	:permit :margin-components *lisp-listener-margin-components*))