Select all text in a StringGadget

[PB]

Sometimes I like to select all text in a StringGadget to save the user from
having to do it. At the moment I'm using this procedure, but a native
command would be nice (to save the extra typing):

Code: Select all

Procedure SelectAll(gad)
  SendMessage_(GadgetID(gad),#EM_SETSEL,0,99999)
  ActivateGadget(gad)
EndProcedure