Even simpler way to manage menu events

I didn't think of this until recently.

Select event.id
	Case EVENT_MENUACTION
		Select GadgetText(TGadget(Event.source))
			Case "Open..."