parent
51ba5b45a1
commit
18320f10dd
@ -1,88 +0,0 @@
|
|||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
%
|
|
||||||
% Panel d-i mode selector.
|
|
||||||
%
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
|
|
||||||
|
|
||||||
/dimode.option .undef def
|
|
||||||
|
|
||||||
/.dimode.normal 0 def
|
|
||||||
/.dimode.expert 1 def
|
|
||||||
|
|
||||||
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
% Initialise d-i mode menu.
|
|
||||||
%
|
|
||||||
% ( ) ==> ( )
|
|
||||||
%
|
|
||||||
/dimode.init {
|
|
||||||
/xmenu.dimode .xm_size array def
|
|
||||||
/xmenu xmenu.dimode def
|
|
||||||
|
|
||||||
xmenu .xm_current .dimode.normal put
|
|
||||||
|
|
||||||
xmenu .xm_list [ /txt_normal_mode /txt_expert_mode ] put
|
|
||||||
|
|
||||||
pmenu.init
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
% Update d-i mode status.
|
|
||||||
%
|
|
||||||
% ( ) ==> ( )
|
|
||||||
%
|
|
||||||
/dimode.update {
|
|
||||||
/xmenu xmenu.dimode def
|
|
||||||
|
|
||||||
xmenu .xm_current get .dimode.normal eq {
|
|
||||||
/dimode.option .undef def
|
|
||||||
} {
|
|
||||||
/dimode.option "priority=low" def
|
|
||||||
} ifelse
|
|
||||||
|
|
||||||
/window.action actRedrawPanel def
|
|
||||||
|
|
||||||
pmenu.update
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
% Show window.
|
|
||||||
%
|
|
||||||
% ( ) => ( )
|
|
||||||
%
|
|
||||||
/panel.dimode {
|
|
||||||
"dimode" help.setcontext
|
|
||||||
|
|
||||||
window.xmenu
|
|
||||||
dup .xmenu xmenu.dimode put
|
|
||||||
dup .xmenu.update /dimode.update put
|
|
||||||
dup window.init
|
|
||||||
window.show
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
% Return width of panel entry.
|
|
||||||
%
|
|
||||||
% ( ) => ( width )
|
|
||||||
%
|
|
||||||
/panel.dimode.width {
|
|
||||||
/xmenu xmenu.dimode def
|
|
||||||
|
|
||||||
pmenu.width
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
||||||
% Redraw panel entry.
|
|
||||||
%
|
|
||||||
% ( panel ) => ( )
|
|
||||||
%
|
|
||||||
/panel.dimode.update {
|
|
||||||
/xmenu xmenu.dimode def
|
|
||||||
|
|
||||||
pmenu.panel.update
|
|
||||||
} def
|
|
@ -0,0 +1,124 @@
|
|||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
%
|
||||||
|
% Panel boot options selector.
|
||||||
|
%
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
|
||||||
|
/fulloptions.option .undef def
|
||||||
|
|
||||||
|
/.fulloptions.expert 0 def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Initialise boot options menu.
|
||||||
|
%
|
||||||
|
% ( ) ==> ( )
|
||||||
|
%
|
||||||
|
/fulloptions.init {
|
||||||
|
/xmenu.fulloptions .xm_size array def
|
||||||
|
/xmenu xmenu.fulloptions def
|
||||||
|
|
||||||
|
xmenu .xm_current .fulloptions.expert put
|
||||||
|
|
||||||
|
xmenu .xm_list [ /txt_expert_mode ] put
|
||||||
|
|
||||||
|
xmenu .xm_title /txt_other_options put
|
||||||
|
xmenu .xm_check 1 put
|
||||||
|
xmenu .xm_allselected xmenu .xm_list get length array put
|
||||||
|
0 1 xmenu .xm_list get length 1 sub {
|
||||||
|
xmenu .xm_allselected get exch false put
|
||||||
|
} for
|
||||||
|
|
||||||
|
pmenu.init
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Change boot options status.
|
||||||
|
%
|
||||||
|
% ( ) ==> ( )
|
||||||
|
%
|
||||||
|
/fulloptions.change {
|
||||||
|
/xmenu xmenu.fulloptions def
|
||||||
|
|
||||||
|
/fulloptions.option 0 string def
|
||||||
|
|
||||||
|
xmenu .xm_allselected get
|
||||||
|
0 1 xmenu .xm_allselected get length 1 sub {
|
||||||
|
over over get {
|
||||||
|
.undef
|
||||||
|
over .fulloptions.expert eq { pop "priority=low" } if
|
||||||
|
dup {
|
||||||
|
% append new option string
|
||||||
|
dup length fulloptions.option length add 1 add string
|
||||||
|
/fulloptions.newoption exch def
|
||||||
|
dup fulloptions.option "%s %s" fulloptions.newoption sprintf
|
||||||
|
fulloptions.option free
|
||||||
|
/fulloptions.option fulloptions.newoption def
|
||||||
|
} if
|
||||||
|
pop
|
||||||
|
} if
|
||||||
|
pop
|
||||||
|
} for
|
||||||
|
pop
|
||||||
|
|
||||||
|
fulloptions.option length {
|
||||||
|
/fulloptions.option inc
|
||||||
|
} {
|
||||||
|
/fulloptions.option .undef def
|
||||||
|
} ifelse
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Update boot options status.
|
||||||
|
%
|
||||||
|
% ( ) ==> ( )
|
||||||
|
%
|
||||||
|
/fulloptions.update {
|
||||||
|
fulloptions.change
|
||||||
|
/window.action actRedrawPanel def
|
||||||
|
pmenu.update
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Show window.
|
||||||
|
%
|
||||||
|
% ( ) => ( )
|
||||||
|
%
|
||||||
|
/panel.fulloptions {
|
||||||
|
"fulloptions" help.setcontext
|
||||||
|
|
||||||
|
window.xmenu
|
||||||
|
dup .xmenu xmenu.fulloptions put
|
||||||
|
dup .xmenu.change /fulloptions.change put
|
||||||
|
dup .xmenu.update /fulloptions.update put
|
||||||
|
dup window.init
|
||||||
|
window.show
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Return width of panel entry.
|
||||||
|
%
|
||||||
|
% ( ) => ( width )
|
||||||
|
%
|
||||||
|
/panel.fulloptions.width {
|
||||||
|
/xmenu xmenu.fulloptions def
|
||||||
|
|
||||||
|
pmenu.width
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Redraw panel entry.
|
||||||
|
%
|
||||||
|
% ( panel ) => ( )
|
||||||
|
%
|
||||||
|
/panel.fulloptions.update {
|
||||||
|
/xmenu xmenu.fulloptions def
|
||||||
|
|
||||||
|
pmenu.panel.update
|
||||||
|
} def
|
Loading…
Reference in new issue