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.
gfxboot-theme-calculate/splash.inc

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