Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Wish to add "chapter.section.Code a" to Textbook style

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81399] Wish to add "chapter.section.Code a" to Textbook style
  • From: chuck009 <dmilioto at comcast.com>
  • Date: Sat, 22 Sep 2007 03:22:39 -0400 (EDT)

Hello . . . well just hello then.  I mean, girls call themselves guys too you know.  

I'm really making progress with style sheets.  I created my textbook stylesheet myNotebook.nb and wish to integrate Mathematica code into the various sections.  So I override the TOCBookProgram style as follows:

Cell[StyleData["TOCBookProgram"],
 CellMargins->{{12, 12}, {1, 1}},
 CellGroupingRules->{"ProgramGrouping", 60},
 CellFrameLabels->{{
    Cell[
     TextData[{CounterBox["TOCBookChapterTitle"],".", 
       CounterBox["TOCBookSection"], ". Code: ", 
       CounterBox["TOCBookProgram"]}], "TOCBookProgramLabel", CellBaseline -> Baseline, Background -> 
     RGBColor[0.68, 0.85, 0.9], CellSize -> {150, 50}], Inherited}, {Inherited, Inherited}},
 TabSpacings->48.5,
 CounterIncrements->CounterFunction->CharacterRange->{"a","z"},
 MenuPosition->1842]

where I'd like the label to say:

chapter.section.Code:x

where x gets incremented as a, b,c, ... using the counter function I specified. 

But it's not working.  All I get is something like 1.1 Code: 0 

So if anyone, girls too, want to offer help . . . I really suspect ver. 7 of Mathematica to be a version of style . . . it's the wave of the future I think :)


  • Prev by Date: Re: DSolving(?) for a given tangent
  • Next by Date: Re: Can i render a Disk[] in Graphics3D?
  • Previous by thread: Re: Still More Stylesheet Questions
  • Next by thread: How to extract values from ListPlot