You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
1.5 KiB
70 lines
1.5 KiB
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
%
|
|
% Splash screen (hidden-timeout mode).
|
|
%
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Create new splash window.
|
|
%
|
|
% ( ) ==> ( window )
|
|
%
|
|
/window.splash {
|
|
widget.size array
|
|
dup .type t_splash put
|
|
dup .font font.normal put
|
|
dup .ed.font font.normal put
|
|
dup .color.fg boot.text.normal put
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Initialize splash window.
|
|
%
|
|
% ( window ) ==> ( )
|
|
%
|
|
/splash.init {
|
|
pop
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Draw splash window.
|
|
%
|
|
% ( window ) ==> ( )
|
|
%
|
|
/splash.show {
|
|
window.push
|
|
|
|
menu.init
|
|
% like 'menu.entry true MenuSelect', but without drawing on the screen
|
|
bootoptions.init
|
|
|
|
access.file dup .undef ne {
|
|
setimage
|
|
screen.size exch access.width sub 2 div exch access.height sub
|
|
moveto 0 0 access.width access.height image
|
|
|
|
background.file setimage
|
|
} { pop } ifelse
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Handle keyboard input.
|
|
%
|
|
% ( key_in ) ==> ( key_out )
|
|
%
|
|
/splash.input {
|
|
/timeout.hidden false def
|
|
/background.file background.file.orig def
|
|
0 0 moveto background.file setimage 0 0 image.size image
|
|
window.done
|
|
window.main
|
|
dup window.init
|
|
window.show
|
|
lang.displayed not { panel.lang } if
|
|
pop 0
|
|
} def
|