layout: support separate colour for loc label box backgrounds

diff --git a/layout/README.layout b/layout/README.layout
index 0120971c52584d6ddd84446cb8a24c6f8018a4f6..44519ed9ce892d1fad6242adef0b53f5039526e6 100644 (file)
--- 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 f1a40e0f6ae248ee44b312e429183f09bcc0f74b..49194e46f6a5bf10b29e2569859d0b8d4e03ad62 100755 (executable)
--- 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");