|
|
|
@ -672,7 +672,7 @@
|
|
|
|
|
0 1 menu.visible.entries 1 sub {
|
|
|
|
|
x y moveto currentpoint menu.bar.width menu.bar.height image
|
|
|
|
|
menu.texts exch menu.shift add get menuitemmap
|
|
|
|
|
x menu.bar.width 2 index strsize pop sub 2 div add
|
|
|
|
|
menu.start.x
|
|
|
|
|
y menu.text.yofs add
|
|
|
|
|
moveto
|
|
|
|
|
currentfont exch font.large setfont show setfont
|
|
|
|
@ -719,7 +719,7 @@
|
|
|
|
|
} ifelse
|
|
|
|
|
setcolor
|
|
|
|
|
menu.texts menu.idx get menuitemmap
|
|
|
|
|
menu.bar.width over strsize pop sub 2 div menu.text.yofs rmoveto
|
|
|
|
|
0 menu.text.yofs rmoveto
|
|
|
|
|
currentfont exch font.large setfont show setfont
|
|
|
|
|
|
|
|
|
|
menu.status {
|
|
|
|
@ -1032,6 +1032,8 @@
|
|
|
|
|
|
|
|
|
|
/menu.start.x frame1.pos pop 10 add def
|
|
|
|
|
/menu.start.y frame1.pos exch pop 12 add def
|
|
|
|
|
/menu.start.x 180 def
|
|
|
|
|
/menu.start.y 140 def
|
|
|
|
|
|
|
|
|
|
/menu.bar.width frame1.size pop 20 sub def
|
|
|
|
|
/menu.max.entries 8 def
|
|
|
|
|