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
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"}]
Comments
Post a Comment