Modified a GUI procedure.