Reacts to double-click only.. Want single-click.

I'm thankful for your help, but that does appear to have side-effects after all.. :( If text is inserted in a text area (both manually, and via the program-code), EVENT_GADGETSELECT becomes true. Check this code as it is, and with the REM'ed out line enabled afterwards:

Local MyWindow:TGadget=CreateWindow("no title", 200,200,420,240)
Local List:TGadget=CreateListBox(10,10,75,100,MyWindow)

Local TextBox:TGadget=CreateTextArea(100,10,300,100,MyWindow)	

For Local i=1 To 50
  AddGadgetItem List,i
Next

Rem
AddTextAreaText (TextBox,"This text causes an EVENT_GADGETSELECT")
End Rem

Repeat
  WaitEvent()
  Select EventID()
  Case EVENT_GADGETSELECT
     Notify "You (may) have clicked!"
     AddTextAreaText (TextBox,"This sucks!"+Chr$(13))
   End Select
Until EventID()=EVENT_WINDOWCLOSE

Beware, you will have to exit program by force, because there will be no way out. Any way around this? :/