Browse Source

Исправлена командная строка

master
Mike Khiretskiy 7 years ago
parent
commit
39f2a89e18
  1. 15
      common.inc
  2. 1
      main.inc
  3. 1
      theme_colors.inc
  4. 4
      window.inc

15
common.inc

@ -6,6 +6,7 @@
% max command line length
/cmdlinelength 512 def
/boot.ed .undef def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
@ -599,6 +600,7 @@
bootpromptmap
boot.show {
ed.color setcolor
boot.ed over edit.init
"" ne { boot.ed ' ' edit.input } if
} {
@ -1002,6 +1004,19 @@
/boot.pos.init {
/boot.label.len txt_bootoptions strsize pop def
/boot.pos { boot.label.len 10 add small_layout { 410 } { 510 } ifelse } def
/boot.ed.width screen.size pop boot.pos pop sub 20 sub def
/boot.ed.height fontheight 2 add def
boot.ed .undef ne {
boot.ed 2 get free
boot.pos exch 10 add
boot.ed 0 rot put
boot.ed 1 rot put
% save background behind boot parameters field
boot.ed dup 0 get exch 1 get
over over moveto boot.ed.width boot.ed.height savescreen
boot.ed 2 rot put
} if
} def
/init {

1
main.inc

@ -64,6 +64,7 @@
boot.pos moveto
boot.show {
boot.text.options setcolor
txt_bootoptions showright
currenttransparency

1
theme_colors.inc

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

4
window.inc

@ -161,7 +161,7 @@
dup 0 ne {
window.current .ed get .undef ne {
window.current .ed.font get setfont
window.current .color.fg get setcolor
ed.color setcolor
window.current .ed get exch edit.input
0
} if
@ -385,7 +385,7 @@
window.current .ed.font get
window.current .ed.focus get window.current .ed.pw_field get eq { pwmode } if
setfont
window.current .color.fg get setcolor
ed.color setcolor
window.current .ed.focus get get exch edit.input
0

Loading…
Cancel
Save