Services & ResourcesWolfram ForumsMathGroup Archive

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

Palette problem with Feynman slash notation

• To: mathgroup at smc.vnet.net
• Subject: [mg129729] Palette problem with Feynman slash notation
• From: "Dave Snead" <dsnead6 at charter.net>
• Date: Fri, 8 Feb 2013 05:12:38 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <kcqkv4$lq5$1@smc.vnet.net> <kct7fj$sgo$1@smc.vnet.net> <kef6pb$k9a$1@smc.vnet.net> <20130202061507.6832E6893@smc.vnet.net> <kel4vd$396$1@smc.vnet.net> <keqehu$erq$1@smc.vnet.net> <20130206105259.3362A68AD@smc.vnet.net>

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

• References:
  • Re: Mathematica and Lisp
    • From: danl@wolfram.com
  • Re: Mathematica and Lisp
    • From: David Bailey <dave@removedbailey.co.uk>