7
$\begingroup$

Without Appearance -> "Labeled" Sliders take up the expected space.

Framed[Slider[.5, ImageSize -> #]] & /@ {Tiny, Small, Medium, Large} // Column

Mathematica graphics

However, when you add Appearance -> "Labeled" far too much space is allocated.

Framed[Slider[.5, ImageSize -> #, 
     Appearance -> "Labeled"]] & /@ {Tiny, Small, Medium, Large} // Column

Mathematica graphics

For now I am rolling my own with

Framed@Row[{Slider[Dynamic[x], {0, 1, 0.01}, ImageSize -> Tiny], Dynamic[x]}, Spacer[1]]

Mathematica graphics

Is this a bug or am I missing something? Version 11.1.0 on Win 7 Ent


CASE:3887274

$\endgroup$
3
  • $\begingroup$ I see the same on 11.0.0.0 OSX. $\endgroup$
    – N.J.Evans
    May 5, 2017 at 12:40
  • 3
    $\begingroup$ Reported to WRI. CASE:3887274 $\endgroup$
    – Edmund
    May 5, 2017 at 13:12
  • $\begingroup$ An old bug, I see it even in Mathematica 8.0.4 on Win7x64. $\endgroup$
    – innaiz
    May 7, 2017 at 13:14

1 Answer 1

4
$\begingroup$

another quick fix

Framed[Slider[.666, ImageSize -> First@#, Appearance -> "Labeled"], 
FrameMargins -> {{1, -Last@#}, {2, 2}}] & /@ {{Tiny, 30}, {Small, 
60}, {Medium, 160}, {Large, 360}} // Column

enter image description here

$\endgroup$
0

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.