Double-click GUI dilema

Thank you, now just let me test it... with this code the one
click is now the default G.U.I sparker, however not for the
menus.

window=CreateWindow("GUI TEST",200,500,300,300,window,15)
enter=CreateButton("RETURN TEXT",200,200,75,100,window,1)
texto=CreateTextArea(100,50,60,20,window)
menu=WindowMenu(window)
file=CreateMenu("FILE",1,menu)
finish=CreateMenu("EnD",2,file)
UpdateWindowMenu window
bank=CreateBank(20)
PokeInt bank,0,window
PokeInt bank,4,enter
PokeInt bank,8,texto
PokeInt bank,12,file
PokeInt bank,16,finish
.begin
Repeat
	WaitEvent()
	ReturnText(bank)
	Menuz(bank)
Until WaitEvent()=$803
blah=Proceed("Are you sure"+Chr(10)+"you want to quit?")
	If blah=1 Then
		End
			Else
				If blah<>1 Then
					Goto begin
				EndIf
	EndIf
Function ReturnText(bank)
	enter=PeekInt(bank,4)
	texto=PeekInt(bank,8)
		Select EventID()
			Case $401
				If EventSource()=enter Then
					Notify(TextAreaText(texto))
						If TextAreaText(texto)="" Then
							Notify("Write text first, then hit enter")
						EndIf
				EndIf
		End Select
End Function 
Function Menuz(bank)
	file=PeekInt(bank,12)
	finish=PeekInt(bank,16)
		Select EventID()
			Case $1001
				If EventSource()=finish Then 
					Notify("Ta ta for now!")
					Delay 500
					End
				EndIf
		End Select
End Function 

{EDIT}
Actually not, infact nothing has changed.