|
Revision 2, 1.6 kB
(checked in by nextime, 2 years ago)
|
Initial import, branching from morphix svn
|
| Line | |
|---|
| 1 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 2 |
% |
|---|
| 3 |
% Splash mode selection dialog. |
|---|
| 4 |
% |
|---|
| 5 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 6 |
|
|---|
| 7 |
|
|---|
| 8 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 9 |
% Some global vars. |
|---|
| 10 |
% |
|---|
| 11 |
/splash.default 2 def |
|---|
| 12 |
|
|---|
| 13 |
/splash.options [ |
|---|
| 14 |
"splash=0" |
|---|
| 15 |
"splash=verbose" |
|---|
| 16 |
"splash=silent" |
|---|
| 17 |
] def |
|---|
| 18 |
|
|---|
| 19 |
|
|---|
| 20 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 21 |
% Build splash list. |
|---|
| 22 |
% |
|---|
| 23 |
% ( ) ==> ( ) |
|---|
| 24 |
% |
|---|
| 25 |
/splash.init { |
|---|
| 26 |
/xmenu.splash .xm_size array def |
|---|
| 27 |
|
|---|
| 28 |
/xmenu xmenu.splash def |
|---|
| 29 |
|
|---|
| 30 |
xmenu .xm_current splash.default put |
|---|
| 31 |
xmenu .xm_list [ "Native" "Verbose" "Silent" ] put |
|---|
| 32 |
|
|---|
| 33 |
pmenu.init |
|---|
| 34 |
} def |
|---|
| 35 |
|
|---|
| 36 |
|
|---|
| 37 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 38 |
% Update splash mode. |
|---|
| 39 |
% |
|---|
| 40 |
% ( ) ==> ( ) |
|---|
| 41 |
% |
|---|
| 42 |
/splash.update { |
|---|
| 43 |
/xmenu xmenu.splash def |
|---|
| 44 |
|
|---|
| 45 |
/window.action actRedrawPanel def |
|---|
| 46 |
|
|---|
| 47 |
pmenu.update |
|---|
| 48 |
} def |
|---|
| 49 |
|
|---|
| 50 |
|
|---|
| 51 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 52 |
% Show splash menu. |
|---|
| 53 |
% |
|---|
| 54 |
% ( ) => ( ) |
|---|
| 55 |
% |
|---|
| 56 |
/panel.splash { |
|---|
| 57 |
"startup" help.setcontext |
|---|
| 58 |
|
|---|
| 59 |
window.xmenu |
|---|
| 60 |
dup .xmenu xmenu.splash put |
|---|
| 61 |
dup .xmenu.update /splash.update put |
|---|
| 62 |
dup window.init |
|---|
| 63 |
window.show |
|---|
| 64 |
} def |
|---|
| 65 |
|
|---|
| 66 |
|
|---|
| 67 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 68 |
% Return width of panel entry. |
|---|
| 69 |
% |
|---|
| 70 |
% ( ) => ( width ) |
|---|
| 71 |
% |
|---|
| 72 |
/panel.splash.width { |
|---|
| 73 |
/xmenu xmenu.splash def |
|---|
| 74 |
|
|---|
| 75 |
pmenu.width |
|---|
| 76 |
} def |
|---|
| 77 |
|
|---|
| 78 |
|
|---|
| 79 |
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|---|
| 80 |
% Redraw panel entry. |
|---|
| 81 |
% |
|---|
| 82 |
% ( panel ) => ( ) |
|---|
| 83 |
% |
|---|
| 84 |
/panel.splash.update { |
|---|
| 85 |
/xmenu xmenu.splash def |
|---|
| 86 |
|
|---|
| 87 |
pmenu.panel.update |
|---|
| 88 |
} def |
|---|
| 89 |
|
|---|
| 90 |
|
|---|
