blob: 2a34bf3113e4c928c5dec65d5852560f27094de6 (
plain)
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
% Main menu (boot entry + boot options + panel).
%
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Create new main window.
%
% ( ) ==> ( window )
%
/window.main {
widget.size array
dup .type t_main put
dup .font font.normal put
dup .ed.font font.normal put
dup .color.fg boot.text.normal put
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Initialize main window.
%
% ( window ) ==> ( )
%
/main.init {
pop
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Redraw main window.
% (E.g. after selecting a new language.)
%
% ( window ) ==> ( )
%
/main.redraw {
boot.show {
boot.text.options setcolor
window.current .font get setfont
boot.pos moveto boot.label.len neg 0 rmoveto
currentpoint boot.label.len fontheight image
boot.pos moveto txt_bootoptions showright
} if
redrawmenu
/keepbootoptions 1 def
menu.entry true MenuSelect
/keepbootoptions .undef def
panel.show
% dud.redraw
} def
/boot.setup {
boot.show not { return } if
boot.window .ed boot.ed put
boot.pos moveto
txt_bootoptions showright
currenttransparency
white setcolor
boot.pos moveto 10 boot.ed.height rmoveto
0xe0 settransparency
boot.ed.width 1 fillrect
settransparency
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Draw main window.
%
% ( window ) ==> ( )
%
/main.show {
window.push
/menu.shift 0 def
/menu.visible.entries menu.texts length menu.max.entries min def
% get index of default entry
/menu.entry 0 def
0 1 menu.texts length 1 sub {
dup menu.texts exch get menu.dentry eq { /menu.entry exch def exit } { pop } ifelse
} for
menu.entry menu.visible.entries sub 0 ge {
/menu.shift menu.entry menu.texts length menu.visible.entries sub min def
} if
boot.text.options setcolor
window.current .font get setfont
/boot.ed.width screen.size pop boot.pos pop sub 20 sub def
/boot.ed.height fontheight 2 add def
/boot.window window.current def
/boot.ed [
boot.pos exch 10 add exch 1 sub
over over moveto boot.ed.width boot.ed.height savescreen
boot.buf
boot.buf.size
0
0
0
] def
boot.setup
redrawmenu
menu.entry true MenuSelect
% find default splash mode
0 1 splash.options length 1 sub {
splash.options over get menu.args menu.entry get exch strstr {
/splash.default exch def
} {
pop
} ifelse
} for
panel.init
"main" help.setcontext
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Handle keyboard input.
%
% ( key_in ) ==> ( key_out )
%
/main.input {
dup 0 eq { return } if
% handle panel entries
panel.input
dup keyF10 eq {
power_off
pop 0
} if
dup keyEsc eq { exit_popup pop 0 } if
dup keyEnter eq {
/window.action actStart def
pop 0
} if
dup keyUp eq {
menu.entry 0 gt {
menu.entry false MenuSelect
menu.entry menu.shift eq {
/menu.shift menu.shift 1 sub def redrawmenu
} if
/menu.entry menu.entry 1 sub def
menu.entry true MenuSelect
} if
pop 0
} if
dup keyDown eq {
menu.entry menu.texts length 1 sub lt {
menu.entry false MenuSelect
menu.visible.entries menu.entry menu.shift sub sub 1 eq {
/menu.shift menu.shift 1 add def redrawmenu
} if
/menu.entry menu.entry 1 add def
menu.entry true MenuSelect
} if
pop 0
} if
dup keyPgUp eq {
menu.entry 0 gt {
menu.entry false MenuSelect
/menu.entry 0 def
menu.shift 0 ne {
/menu.shift 0 def redrawmenu
} if
menu.entry true MenuSelect
} if
pop 0
} if
dup keyPgDown eq {
menu.entry menu.texts length 1 sub lt {
menu.entry false MenuSelect
/menu.entry menu.texts length 1 sub def
menu.texts length menu.visible.entries sub dup menu.shift ne {
/menu.shift exch def redrawmenu
} {
pop
} ifelse
menu.entry true MenuSelect
} if
pop 0
} if
dup 0 ne {
"opt" help.setcontext
} if
} def
|
