; -*- Mode: LISP; Syntax:Zetalisp; Package:ZETALISP-USER; Base: 10; -*-

(defflavor background-window
	()
	(tv:gray-unused-areas-mixin
	 tv:show-partially-visible-mixin
	 tv:basic-frame))


(defmethod (:gray-array-for-unused-areas background-window) ()
  stipples:12%-gray)

(defun window-configuration ()
  (tv:set-default-window-size
    'zwei:zmacs-frame tv:main-screen t :left 64 :top 43 :right 730 :bottom 650)
  (tv:set-default-window-size
    'zwei:zmacs-frame tv:main-screen nil :left 64 :top 43 :right 730 :bottom 650)
  (tv:set-default-window-size
    'ZWEI:ZMAIL-FRAME tv:main-screen nil :left 431 :top 52 :right 1070 :bottom 637)
  (tv:set-default-window-size
    'ZWEI:ZMAIL-FRAME tv:main-screen t :left 431 :top 52 :right 1070 :bottom 637)
  (tv:set-default-window-size
    'ZWEI:STANDALONE-EDITOR-FRAME tv:main-screen nil :left 231 :top 52 :right 870 :bottom 737)
  (tv:set-default-window-size
    'ZWEI:STANDALONE-EDITOR-FRAME tv:main-screen t :left 231 :top 52 :right 1870 :bottom 737)
  (tv:set-default-window-size
    'LMFS:FSMAINT-FRAME tv:main-screen t :left 74 :top 310 :right 900 :bottom 685)
  (tv:set-default-window-size
    'LMFS:FSMAINT-FRAME tv:main-screen nil :left 74 :top 310 :right 900 :bottom 685)
  (tv:set-default-window-size
    'telnet:NVT-WINDOW tv:main-screen nil :left 114 :top 43 :right 780 :bottom 690)
  (dolist (inferior (send tv:main-screen :inferiors))
    (cl:case (cl:type-of inferior)
      (DW:DYNAMIC-LISP-LISTENER
	(send inferior :set-deexposed-typeout-action ':permit))
      (LMFS:FSMAINT-FRAME
	(send inferior :set-deexposed-typeout-action ':permit)
	(send inferior :select)))))

(defvar *background-window*)

(unless (boundp '*background-window*)
  (setf *background-window* 
	(tv:make-window 'background-window
			:expose-p t
			:superior tv:main-screen)))

(window-configuration)

#|
ZWEI:ZMAIL-FRAME 
ZWEI:CONVERSE-FRAME 
BACKGROUND-WINDOW2 
DW:DYNAMIC-LISP-LISTENER 
LMFS:FSMAINT-FRAME 
DW:PROGRAM-FRAME 
DW:PROGRAM-FRAME 
DW:PROGRAM-FRAME 
DW:DYNAMIC-LISP-LISTENER 
TV:PEEK-FRAME
|#