Notebook[{Cell[BoxData[StyleBox["Load \n lagrangian:"]], NotebookDefault, 
   CellMargins -> {{Inherited, Inherited}, {5, Inherited}}, 
   Background -> GrayLevel[0.9], CellFrame -> False, Evaluatable -> False, 
   CellHorizontalScrolling -> False, LineSpacing -> {1., 0}, 
   FormatType -> InputForm, ScriptMinSize -> 9, ShowStringCharacters -> 
    False, FontFamily -> "Times", FontWeight -> "Bold"], Cell[BoxData[
    StyleBox[GridBox[{{ButtonBox["BChPT22", 
          RuleDelayed[ButtonFunction, LoadLagrangian["BChPT22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPT22", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPT22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPT24", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPT24"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPT32", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPT32"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPT34", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPT34"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTEM22", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTEM22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTEM24", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTEM24"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTPhoton22", 
          RuleDelayed[ButtonFunction, LoadLagrangian["ChPTPhoton22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTPhoton24", 
          RuleDelayed[ButtonFunction, LoadLagrangian["ChPTPhoton24"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTVirtualPhotons22", 
          RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTVirtualPhotons22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTVirtualPhotons24", 
          RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTVirtualPhotons24"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTW32", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTW32"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTW34", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTW34"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["ChPTWS32", RuleDelayed[ButtonFunction, 
           LoadLagrangian["ChPTWS32"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["HBChPT22", RuleDelayed[ButtonFunction, 
           LoadLagrangian["HBChPT22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["QED1", RuleDelayed[ButtonFunction, 
           LoadLagrangian["QED1"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["QED21", RuleDelayed[ButtonFunction, 
           LoadLagrangian["QED21"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["QED22", RuleDelayed[ButtonFunction, 
           LoadLagrangian["QED22"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}, 
        {ButtonBox["QED2", RuleDelayed[ButtonFunction, 
           LoadLagrangian["QED2"]], 
          RuleDelayed[ButtonEvaluator, Automatic]]}}, RowSpacings -> 0, 
       ColumnSpacings -> 0, GridDefaultElement :> \
ButtonBox["\\[Placeholder]"]], 
      Rule[ButtonBoxOptions, List[Rule[ButtonEvaluator, Automatic], 
        Rule[Active, True], Rule[ButtonStyle, "Evaluate"]]]]], 
   NotebookDefault, CellMargins -> {{Inherited, Inherited}, {5, Inherited}}, 
   Evaluatable -> True, CellGroupingRules -> "InputGrouping", 
   CellHorizontalScrolling -> True, PageBreakAbove -> True, 
   PageBreakWithin -> False, GroupPageBreakWithin -> False, 
   CellLabelMargins -> {{11, Inherited}, {Inherited, Inherited}}, 
   DefaultFormatType -> DefaultInputFormatType, LineSpacing -> {1.25, 0}, 
   FormatType -> InputForm, ScriptMinSize -> 9, ShowStringCharacters -> True, 
   NumberMarks -> True, CounterIncrements -> "Input", 
   StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold"], 
  Cell[BoxData[
    StyleBox[GridBox[{{ButtonBox["Rebuild", 
          RuleDelayed[ButtonFunction, RebuildLagrangiansPalette], 
          RuleDelayed[ButtonEvaluator, Automatic]]}}, RowSpacings -> 0, 
       ColumnSpacings -> 0], Rule[ButtonBoxOptions, 
       List[Rule[ButtonEvaluator, Automatic], Rule[Active, True], 
        Rule[ButtonStyle, "Evaluate"]]]]], NotebookDefault, 
   CellMargins -> {{Inherited, Inherited}, {5, Inherited}}, 
   Evaluatable -> True, CellGroupingRules -> "InputGrouping", 
   CellHorizontalScrolling -> True, PageBreakAbove -> True, 
   PageBreakWithin -> False, GroupPageBreakWithin -> False, 
   CellLabelMargins -> {{11, Inherited}, {Inherited, Inherited}}, 
   DefaultFormatType -> DefaultInputFormatType, LineSpacing -> {1.25, 0}, 
   AutoItalicWords -> {}, FormatType -> InputForm, ScriptMinSize -> 9, 
   ShowStringCharacters -> True, NumberMarks -> True, 
   SingleLetterItalics -> False, CounterIncrements -> "Input", 
   StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold"]}, 
 Background -> GrayLevel[0.9], WindowTitle -> "Load lagrangian", 
 Editable -> False, WindowToolbars -> {}, PageWidth -> 342, 
 WindowSize -> {173, 450}, WindowMargins -> {{147, Automatic}, 
   {Automatic, 0}}, WindowFrame -> "Palette", WindowElements -> {}, 
 WindowFrameElements -> "CloseBox", WindowClickSelect -> False, 
 ScrollingOptions -> {"PagewiseScrolling" -> True}, ShowCellBracket -> False, 
 CellMargins -> {{0, 0}, {Inherited, 0}}, Active -> True, CellOpen -> True, 
 ShowCellLabel -> False, ShowCellTags -> False, 
 ImageMargins -> {{0, Inherited}, {Inherited, 0}}, Magnification -> 1]
