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

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

theme_colors.inc

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