Code: Select all
SendMessage_(GadgetID(0), #EM_SETSEL,-1,-1)
Code: Select all
Repeat
Select WindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 0 ;EDITOR GADGET
SendMessage_(GadgetID(0), #EM_SETSEL,-1,-1)
EndSelect
EndSelect
Forever