disable the now rather pointless "Other Options" panel entry, and always show the full panel instead
parent
072c943d5f
commit
4cb9b2f06f
@ -1,52 +0,0 @@
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
%
|
||||
% Panel 'more options' entry.
|
||||
%
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Show help window.
|
||||
%
|
||||
% ( ) => ( )
|
||||
%
|
||||
/panel.options {
|
||||
/panel panel.full def
|
||||
|
||||
boot.show not {
|
||||
/boot.show true def
|
||||
boot.setup
|
||||
|
||||
boot.window .color.fg get setcolor
|
||||
boot.window .ed.font get setfont
|
||||
|
||||
boot.ed 3 get
|
||||
boot.ed over edit.init
|
||||
"" ne { boot.ed ' ' edit.input } if
|
||||
} if
|
||||
|
||||
/window.action actRedraw def
|
||||
} def
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Return width of options entry.
|
||||
%
|
||||
% ( ) => ( width )
|
||||
%
|
||||
/panel.options.width {
|
||||
txt_other_options strsize pop
|
||||
} def
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Redraw panel entry.
|
||||
%
|
||||
% ( panel ) => ( )
|
||||
%
|
||||
/panel.options.update {
|
||||
panel.text.moveto
|
||||
|
||||
txt_other_options show
|
||||
} def
|
||||
|
||||
|
Loading…
Reference in new issue