3
$\begingroup$

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: enter image description here

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

Improve this question
$\endgroup$

1 Answer 1

Reset to default
6
$\begingroup$

WindowElements -> {"StatusArea"}

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

enter image description here

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"}]
Improve this answer
$\endgroup$
5
  • $\begingroup$ I don't see anything happening when I hover the mouse over the button; the :) icon is always there. (Mathematica 10.0.1, OS X.) $\endgroup$ Commented Nov 28, 2014 at 19:37
  • $\begingroup$ @murray done :p $\endgroup$ Commented Nov 28, 2014 at 20:09
  • $\begingroup$ @Kuba I hope I am not breaking any rule by asking this here but, could you please explain to me the need of With[{i=i},...]? Why is that necessary? What does it do / prevent? Thank you in advance! $\endgroup$ Commented May 23, 2019 at 23:51
  • 1
    $\begingroup$ @RoberRM, sure, take a look at mathematica.stackexchange.com/a/7758/5478 and let me know if that explanation is not clear. $\endgroup$ Commented May 24, 2019 at 0:51
  • $\begingroup$ @Kuba I understood perfectly. Thank you! $\endgroup$ Commented May 24, 2019 at 23:57

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.