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?

$\endgroup$

1 Answer 1

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"}]
$\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$
    – murray
    Nov 28, 2014 at 19:37
  • $\begingroup$ @murray done :p $\endgroup$
    – Kuba
    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$
    – RoberRM
    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$
    – Kuba
    May 24, 2019 at 0:51
  • $\begingroup$ @Kuba I understood perfectly. Thank you! $\endgroup$
    – RoberRM
    May 24, 2019 at 23:57

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.