Размещение элемента управления с помощью Manipulate в Mathematica

Я хотел бы, чтобы элемент управления Pink & Green CheckBox отображался в одной строке. Несмотря на подробное рассмотрение справки ControlPlacement, я не могу адаптировать ее для работы.

Manipulate[
Graphics[{If[thePink, {Pink, Disk[{5, 5}, r]}], 
If[theGreen, {Green, Disk[{4, 2}, r]}]}, 
PlotRange -> {{0, 20}, {0, 10}}], {{r, 1, 
Style["Radius", Black, Bold, 12]}, 1, 5, 1, ControlType -> Setter, 
ControlPlacement -> Top}, {{thePink, True, 
Style["Pink", Black, Bold, 12]}, {True, False}}, {{theGreen, False,
Style["Green", Black, Bold, 12]}, {True, False}}]