MathGroup Archive 2013

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

Search the Archive

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




  • Prev by Date: Re: Help with "recession bar" graph
  • Next by Date: Using Defer on Dynamic Expressions?
  • Previous by thread: Re: Mathematica and Lisp
  • Next by thread: Re: Mathematica and Lisp