Re: How input stacked characters with vertical bar
- To: mathgroup at smc.vnet.net
- Subject: [mg53118] Re: How input stacked characters with vertical bar
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Fri, 24 Dec 2004 05:59:05 -0500 (EST)
- References: <cqbh1k$4iv$1@smc.vnet.net> <cqeh6i$l3n$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
"Paul Abbott" <paul at physics.uwa.edu.au> wrote in message news:cqeh6i$l3n$1 at smc.vnet.net... > In article <cqbh1k$4iv$1 at smc.vnet.net>, > "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk> wrote: > >> Here is a Text cell expression that does what you want. >> >> Cell[TextData[Cell[BoxData[ >> FormBox[ >> SubsuperscriptBox[ >> RowBox[{ >> StyleBox["\[LeftBracketingBar]", >> FontColor->GrayLevel[1]], >> FractionBox["f", >> FractionBox["g", "h"]], "\[RightBracketingBar]"}], "a", >> "b"], TraditionalForm]]]], "Text"] >> >> The trick is to use the left and right bracketing bars (these are on the >> BasicTypsetting palette just below the corresponding left and right angle >> brackets). You then need to colour the left hand bracketing bar white (so >> it >> disappears). > > Instead of > > StyleBox["\[LeftBracketingBar]", FontColor->GrayLevel[1]] > > you can use \[AutoLeftMatch]. For example, > > Cell[TextData[Cell[BoxData[ > FormBox[ > SubsuperscriptBox[ > RowBox[{ > "\[AutoLeftMatch]", > FractionBox["f", > FractionBox["g", "h"]], "\[RightBracketingBar]"}], "a", > "b"], TraditionalForm]]]], "Text"] > >> It is not OK to simply delete it, because the right hand >> bracketing bar then appears purple (because it is lonely without its >> partner!), and this colouration survives all the way to the final printed >> form. > > You can work around this by modifying the "UnmatchedBracket" style in > the Automatic Styles for the Notebook. However, using auto-matching is > better. > > Cheers, > Paul > > -- > Paul Abbott Phone: +61 8 6488 2734 > School of Physics, M013 Fax: +61 8 6488 1014 > The University of Western Australia (CRICOS Provider No 00126G) > 35 Stirling Highway > Crawley WA 6009 mailto:paul at physics.uwa.edu.au > AUSTRALIA http://physics.uwa.edu.au/~paul > Excellent! I knew there had to be something like this somewhere but I never found it. Is it hidden away somewhere in the standard palettes? Steve Luttrell