From eca9f6d96ef9f8c335f5cb19a0aa5d2a750808d7 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 6 Nov 2010 17:25:14 +0000 Subject: [PATCH] layout: support separate colour for loc label box backgrounds --- layout/README.layout | 3 ++- layout/layout | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/layout/README.layout b/layout/README.layout index 0120971..44519ed 100644 --- a/layout/README.layout +++ b/layout/README.layout @@ -269,7 +269,8 @@ Command-line options Colour letters: extra colour letters: r registration marks - l library entry object names + o library entry object names + l background for loc labels p page number i ident elements not separately colourable: diff --git a/layout/layout b/layout/layout index f1a40e0..49194e4 100755 --- a/layout/layout +++ b/layout/layout @@ -1686,7 +1686,7 @@ dv("cmd__do $ctx @al ",'$ctx',$ctx); " sx5 neg $lmu_txtboxh lineto\n". " sx5 $lmu_txtboxh lineto\n". " sx5 0 lineto closepath\n". - " gsave ".set_colour(1, 'L')." fill grestore\n". + " gsave ".set_colour(1, 'l')." fill grestore\n". " $lmu_txtboxlw setlinewidth stroke\n". " sx5 neg $lmu_txtboxpadx add $lmu_txtboxtxty\n". " moveto s show\n"); @@ -1771,7 +1771,7 @@ sub cmd_showlibrary { cmd__runobj($obj_id); ol(" gsave\n". " /s ($obj_id) def\n". - " lf setfont ".set_black('l')."\n". + " lf setfont ".set_black('o')."\n". ($x + 0.5*$width)." ".($y - $olu_textheight)." moveto\n". " s stringwidth pop -0.5 mul 0 rmoveto\n". " s show grestore\n"); -- 2.30.2