|
|
|
@ -74,6 +74,28 @@
|
|
|
|
|
} def
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/mydebug {
|
|
|
|
|
380 400 moveto -300 0 rmoveto
|
|
|
|
|
currentpoint 300 fontheight image
|
|
|
|
|
380 400 moveto menu.humans menu.entry get showright
|
|
|
|
|
|
|
|
|
|
380 420 moveto -300 0 rmoveto
|
|
|
|
|
currentpoint 300 fontheight image
|
|
|
|
|
menu.texts menu.entry get "#%s#" timeout.buf sprintf
|
|
|
|
|
380 420 moveto timeout.buf showright
|
|
|
|
|
|
|
|
|
|
/my.buf 128 string def
|
|
|
|
|
0 440 moveto
|
|
|
|
|
currentpoint 640 fontheight image
|
|
|
|
|
menu.args menu.entry get "#%s#" my.buf sprintf
|
|
|
|
|
0 440 moveto my.buf show
|
|
|
|
|
|
|
|
|
|
380 380 moveto -300 0 rmoveto
|
|
|
|
|
currentpoint 300 fontheight image
|
|
|
|
|
380 380 moveto menu.labels menu.entry get showright
|
|
|
|
|
|
|
|
|
|
} def
|
|
|
|
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
% Update installation modes status.
|
|
|
|
|
%
|
|
|
|
@ -98,6 +120,8 @@
|
|
|
|
|
% ( index ) ==> ( )
|
|
|
|
|
%
|
|
|
|
|
/modes.filter {
|
|
|
|
|
%mydebug
|
|
|
|
|
|
|
|
|
|
modes.rawlabels .undef eq { pop return } if
|
|
|
|
|
|
|
|
|
|
menu.labels exch get
|
|
|
|
|