A RadioBox builds on the functionality provided by RadioGroup, See section RadioGroup abstraction, to provide a Smalltalk like radio button group:
radioBox :: [(Picture,a)] -> Int -> Component (Gauge (a,Int), DisplayHandle)
ls =
[("Pepperoni",1),
("Mushroom",2),
("Pineapple",3)]
main =
wopen ["*name: RBox"] (radioBox ls 1) >>
return ()

[ToDo: say something about how to disable/enable individual components]