Re: Inherited Cell Option Values

*To*: mathgroup at smc.vnet.net*Subject*: [mg35769] Re: [mg35321] Inherited Cell Option Values*From*: Omega Consulting <omega_consulting at yahoo.com>*Date*: Tue, 30 Jul 2002 07:22:22 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

At 02:17 AM 7/8/2002, Selwyn Hollis wrote: >Hello MathGroupers, > >I'm trying to create some ButtonFunctions that modify cell margins. I >have something that works very well, so long as the CellMargins option >appears explicity in every cell---as, e.g., in > >Cell["abc","Text", CellMargins->{{10,0},{0,6}}]. > >But with something like Cell["abc","Text"] or Cell["abc","Text", >CellMargins->{{Inherited,Inherited},{0,Inherited}}], >I'm stuck. The only thing I can think of is to provide the default >values from the style sheet ``manually." > >Is it possible to determine the value of an inherited cell option? If >one could somehow force inherited cell options to appear explicitly, >that would provide a solution. Any ideas? > >Thanks in advance, >Selwyn Hollis > >slhollis at mac.com >http://www.armstrong.edu/faculty/hollis You want AbsoluteOptions. For example, in one notebook do the following In[1]:= nbk=EvaluationNotebook[]; And create a text cell which you then select. In another notebook, do In[2]:= Options[NotebookSelection[nbk], CellMargins] Out[2]= {CellMargins->{{Inherited,Inherited},{Inherited,Inherited}}} In[2]:= AbsoluteOptions[NotebookSelection[nbk], CellMargins] Out[3]= {CellMargins->{{12.,10.},{7.,7.}}} -------------------------------------------------------------- Omega Consulting "The final answer to your Mathematica needs" Spend less time searching and more time finding. http://www.wz.com/internet/Mathematica.html