Mathematica 9 is now available
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

Re: Adding current style name to window title or status area

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81285] Re: Adding current style name to window title or status area
  • From: Norbert Marxer <marxer at mec.li>
  • Date: Tue, 18 Sep 2007 00:46:37 -0400 (EDT)
  • References: <fclbec$fi7$1@smc.vnet.net>

On 17 Sep., 09:47, chuck009 <dmili... at comcast.com> wrote:
> I'd like to know the current style my notebook is using.  Would be nice I think if the style name would appear in the window title or maybe in the status area.  Here's what I have so far which only extracts a string containing the style name but I can't figure out how to get it in the window any way.  I realize there's a WindowStatusArea command but I don't know how to use it yet.  
>
> nb = Options[EvaluationNotebook[], StyleDefinitions];
> myStyle = StyleDefinitions /. nb
> my2 = myStyle[[1, 1]]

Hello

The following command (evaluated in the appropriate notebook) writes
the file name of the style sheet in the status area of the window:

SetOptions[EvaluationNotebook[],WindowStatusArea-
>ToString[StyleDefinitions/.Options[EvaluationNotebook[],StyleDefinitions]]]

Best Regards
Norbert Marxer



  • Prev by Date: RE: Button Help Example
  • Next by Date: Re: Automated documentation (like javadoc) for packages?
  • Previous by thread: Adding current style name to window title or status area
  • Next by thread: Is automatic EquationNumbered tags not working in ver. 6?