Добавлен (в комментриях) отладочный блок

master
Mike Khiretskiy 9 years ago
parent 217f981eb1
commit 4f642a41f3

@ -74,6 +74,28 @@
} def } 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. % Update installation modes status.
% %
@ -98,6 +120,8 @@
% ( index ) ==> ( ) % ( index ) ==> ( )
% %
/modes.filter { /modes.filter {
%mydebug
modes.rawlabels .undef eq { pop return } if modes.rawlabels .undef eq { pop return } if
menu.labels exch get menu.labels exch get

@ -1,2 +1,3 @@
/title.bg 0x3f81f1 newcolor /title.bg 0x3f81f1 newcolor
/timer.color lightgray newcolor /timer.color lightgray newcolor
/panel.high 0x43b3fe newcolor

Loading…
Cancel
Save