Colocación del control utilizando Manipular en Mathematica

Question

Me gustaría que el Control de CheckBox verde & rosado se muestre en una sola línea. A pesar de la amplia vista en la Ayuda de ControlPlacement, no puedo adaptarlo para que funcione.

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}}] 

Answer 1

Uso Row[ ] y Control[ ]:

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}, 
Row[ 
    {Control@{{thePink, True, Style["Pink", Black, Bold, 12]}, {True, False}}, 
    Spacer[20], 
    Control@{{theGreen, False, Style["Green", Black, Bold, 12]}, {True,False}}}]]