CreatePalette[
  Framed @ Column[{
     Button["Evaluate Cells",
       FrontEndExecute[FrontEndToken["EvaluateCells"]],
       Appearance -> "Palette", ImageSize -> 140],
     Button["Evaluate Notebook",
       FrontEndExecute[FrontEndToken["EvaluateNotebook"]],
       Appearance -> "Palette", ImageSize -> 140],
     Button["Global Clear", Clear["Global`*"],
       Appearance -> "Palette", ImageSize -> 140]}],
  WindowTitle -> "Evaluation"];