Browse Source

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

master
Mike Khiretskiy 7 years ago
parent
commit
4f642a41f3
  1. 24
      dia_modes.inc
  2. 1
      theme_colors.inc

24
dia_modes.inc

@ -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

1
theme_colors.inc

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