How to populate CellFrameLabels in Mathematica notebook styles?

Question

I am working on getting numbered cell labels, following the excellent tips in these other answers.

Cell definition extension in CellFrameLabels definition

How to auto-name cell tags in Mathematica laptops?

and I'm almost there. I wanted to add section numbers to section styles in the Creative / Pastel color stylesheet. I created a new notebook (here is a copy in my public Dropbox)

http://dl.dropbox.com/u/1997638/CellFrameMargins.nb

went to the "Format" menu, chose "Stylish Table \ Creative \ PastelClor", then "Format" "Edit Style Sheet", "Choose a Style: Section", then click "Create" \ "Pastel Color .nb at the top of the dialog box editing styles.

This opens up another stylesheet editor, and I go to the fourth item down, “Styles for Header and Section Cells,” and then the second item there is “Section”. Put the crosshairs of the mouse there and click, then select "Cell", the item "Show expression", which shows the following expression:

Cell[StyleData["Section"],
 CellFrame->{{0, 0}, {1, 3}},
 CellFrameColor->RGBColor[1., 0.819608, 0.658824],
 FontFamily->"Helvetica",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0.882353, 0.419608, 0.0784314],
 Background->RGBColor[1., 0.886275, 0.741176]]

GREAT! Shows all the details, or so I thought. In particular, the CellFrame element gives me information {{0, 0}, {1, 3}}, I need to align the cell labels with the cell style. So, back to the steylsheet editor dialog for my laptop and following the above answers, I print

Cell[
 StyleData["Section"],
 CellFrameLabelMargins -> 0,
  CellFrameLabels-> { {
   Cell[
    TextData[{ "§", CounterBox["Section"], ": " }], 
    "SectionLabel",
    CellFrame -> {{0, 0}, {1, 3}},
    CellFrameMargins -> 4
   ] (* left label *),
   Inherited (* right label *) }, 
  {Inherited (* bottom label *), 
   Inherited (* top label *) } } ]

CellFrameMargins -> 4, , . , . CellFrameLabels , . CellFrameLabels , , . . Background -> RGBColor[...], , CellFrameMargins CellFrameLabelMargins , .

.

Answer 1

. , . ImageMargins FrameMargins FrameBox, .

Cell[StyleData["Section"],
 CellFrameLabels->{{
  Cell[
   BoxData[
    FrameBox[
     TemplateBox[{"§", CounterBox["Section"], ": "},
      "Row",
       DisplayFunction->(RowBox[{#, " ", #2}]& )
     ],
     ImageMargins->-1,
     Background->RGBColor[1., 0.886275, 0.741176],
     FrameStyle->RGBColor[1., 0.886275, 0.741176],
     FrameMargins->2
    ]
   ], 
   "SectionLabel", CellFrame -> {{0, 0}, {1, 3}}, 
   CellFrameMargins->0
  ], Inherited}, 
  {Inherited, Inherited}},
 CellFrameLabelMargins->0
]

: