Symbolics Lisp Machine Museum - background-window.lisp.html □ ◻ ×
← Back to Museum

background-window.lisp.html

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
; -*- 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
|#