Como añadir la opción "Seleccionar todo" en un menú emergente.

[Programador Desarrollador]

Señores saludos; he econtrado en internet este código para crear un
menú emergente y le he agregado la opción de "Seleccionar todo" pero
no se como hacer para que la mencionado opción funcione.

Define Popup jMnuOpc From Mrow(),Mcol() SHORTCUT
Define Bar 1 Of jMnuOpc Prompt "Copiar"
Define Bar 2 Of jMnuOpc Prompt "Pegar"
Define Bar 3 Of jMnuOpc Prompt "Seleccionar todo"
On Selection Popup jMnuOpc Deactivate Popup jMnuOpc

Activate Popup jMnuOpc

If Bar() = 1 THEN
_Cliptext = This.Value
Endif
If Bar() = 2 THEN
This.Value = _Cliptext
Endif
If Bar() = 3 THEN
_MED_SLCTA = This.Value
Endif

Release jMnuOpc

Agradecería a ustedes me ayuden con la tercera opción que es la de
seleccionar todo en un cuadro de edición.

Gracias anticipadas por sus respuestas.

[Miguel]

DEFINE POPUP mPoPup SHORTCUT RELATIVE
DEFINE BAR _med_cut OF mPoPup PROMPT "Cor\<tar" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "Cortar el texto y ponerlo en el portapapeles"
DEFINE BAR _med_copy OF mPoPup PROMPT "\<Copiar" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "Copia la selección al portapapeles"
DEFINE BAR _med_paste OF mPoPup PROMPT "\<Pegar" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "Pega el texto al portapapeles"
DEFINE BAR _med_slcta OF mPoPup PROMPT "Se\<lecciona Todo" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "Selecciona todo el texto"




On 17 sep, 06:14, Programador Desarrollador <pyd.en.sl...@gmail.com>
wrote: