How do I create palette window with status area?

Question

I would like to create a palette with a small empty bar at the bottom that displays text as the user hovers their mouse over various buttons (like at the bottom of the built-in "Basic Type-setting" palette).

I tried setting the option WindowStatusArea->True and Automatic but the status bar at the bottom doesn't show:

CreatePalette[
  PasteButton[
    Style[
      StatusArea["\[Gamma]", "esc-g-esc"], FontFamily -> "Courier", 12],
    RawBoxes["\[Gamma]"], ImageSize -> {30, 20}], 
WindowStatusArea -> True]

leads to:

Which option do I need to set to get the status area bar at the bottom of the palette?

Answer 1

WindowElements -> {"StatusArea"}

CreatePalette[
 PasteButton[  Style[StatusArea["\[Gamma]", "esc-g-esc"], 
                     FontFamily -> "Courier", 12], 
               RawBoxes["\[Gamma]"], ImageSize -> {30, 20}], 
 WindowStatusArea -> ":)", 
 WindowElements -> {"StatusArea"}]

Full answer:

CreatePalette[
 Table[With[{i = i},
   Annotation[Button[Row[{"Label ", i}], Print[i]], "Yeah, " <> ToString[i], "Mouse"]
   ],
  {i, 10}],
 WindowStatusArea -> Dynamic[MouseAnnotation[":("]], 
 WindowElements -> {"StatusArea"}]