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.
62 lines
1.3 KiB
62 lines
1.3 KiB
14 years ago
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||
|
%
|
||
|
% Splash screen (hidden-timeout mode).
|
||
|
%
|
||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||
|
|
||
|
|
||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||
|
% Create new splash window.
|
||
|
%
|
||
|
% ( ) ==> ( window )
|
||
|
%
|
||
|
/window.splash {
|
||
|
widget.size array
|
||
|
dup .type t_splash put
|
||
|
} def
|
||
|
|
||
|
|
||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||
|
% Initialize splash window.
|
||
|
%
|
||
|
% ( window ) ==> ( )
|
||
|
%
|
||
|
/splash.init {
|
||
|
pop
|
||
|
} def
|
||
|
|
||
|
|
||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||
|
% Draw splash window.
|
||
|
%
|
||
|
% ( window ) ==> ( )
|
||
|
%
|
||
|
/splash.show {
|
||
|
window.push
|
||
|
|
||
|
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
|
||
|
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
|