Textarea problem help plz

Well I'm kinda getting the hang of it but there is still more to learn...
I wanth to create a text editor...
I made a textarea(+ a menu)
How do I do when I select a text and right click it to appear a menu with copy paste and cut?
I know its something with the events but i don't really know this stuff
I also searched for the answear on the forum and on the docs but no result..

BRL.Event

BRL.MaxGUI

Strict

Local menu:TGadget
Local window:TGadget
Local panel:TGadget

menu=CreateMenu("popup",0,Null)
CreateMenu("Load",101,menu)
CreateMenu("Save",102,menu)

window=CreateWindow("Test PopupWindowMenu",20,20,200,200)

' create a panel to capture some mouse events

panel=CreatePanel(0,0,ClientWidth(window),ClientHeight(window),window,PANEL_ACTIVE)

While True
	WaitEvent
	Select EventID()
		Case EVENT_MOUSEDOWN
			If EventData()=2 PopupWindowMenu window,menu
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_MENUACTION
			Print "EVENT_MENUACTION: eventdata()="+EventData()
	End Select
Wend

-- Byteemoz