|
|
Palette problem with Feynman slash notation
Posted:
Feb 8, 2013 5:10 AM
|
|
Hi,
The following code creates a palette for Feynman slash notation.
The palette looks OK with slashes through the letters.
However when I click on a button to put the symbol in a document,
the slash is absent. Anybody see what's wrong?
CreatePalette[
Grid[Partition[
PasteButton[
Style[If[# === "", "", Overlay[{#, Style["/", Bold]}]], 12],
RawBoxes[#], ImageSize -> 24, Enabled -> # =!= "" ] & /@ {"a",
"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n",
"o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z",
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M",
"N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y",
"Z", "", "", ""}, 5], Spacings -> {0, 0}]];
Thanks in advance,
Dave Snead
|
|
