Cell[TextData[{
"TEXT CELL ",
Cell[BoxData[
StyleBox[
PaneSelectorBox[{False->"False", True->
GraphicsBox[DiskBox[{0, 0}],
ImageSize->50]}, Dynamic[
CurrentValue["MouseOver"]],
FrameMargins->0,
ImageSize->Automatic],
Evaluatable->True]]],
" REMAINING TEXT"
}], "Text"]