SelectProgramDialog modified to fragment