The following code has two problems. extra frame lines inside the SetterBar display are generated and the Dynamic[inputs] appears as a variable name in the blue bar rather than as the value. What is wrong and what are the fixes?
ClearAll["Global`*"];
framed[x_] :=
Framed[x, Alignment -> Center, Background -> GrayLevel[0.96],
ImageSize -> {75, 25}, FrameStyle -> None,
FrameMargins -> Automatic, BaseStyle -> Bold,
FrameStyle -> Directive[None]];
DynamicModule[{input},
Column[{
Framed[Dynamic[input], Alignment -> Center,
Background -> LightBlue, ImageSize -> {345, 35},
FrameStyle -> None, FrameMargins -> None, BaseStyle -> Bold],
SetterBar[Dyanmic[input],
framed[#] & /@ {"(", ")", "X", "AC",
7, 8, 9, "/",
4, 5, 6, "*",
1, 2, 3, "-",
0, ".", "=", "+"},
Appearance -> "Horizontal" -> {5, 4} , Background -> White
]
},
Frame -> True, BaseStyle -> BackGround -> White]
]