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.
 
 
 
 
 
 

54 lines
1020 B

% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
% Panel help entry.
%
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Show help window.
%
% ( ) => ( )
%
/panel.help {
help.context "opt" eq boot.ed 5 get .undef ne and {
findbootoption
help.mapcontext
dup help.findpage
"" eq { pop } { help.setcontext } ifelse
} if
show_help
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Return width of help entry.
%
% ( ) => ( width )
%
/panel.help.width {
txt_help strsize pop
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Redraw panel entry.
%
% ( panel ) => ( )
%
/panel.help.update {
panel.text.moveto
txt_help show
} def
/panel.tab.update {
panel.text.moveto
txt_bootoptions show
} def
/panel.tab.width {
txt_bootoptions strsize pop
} def
/panel.help {
} def