|
Ambos gb__event$ y gb__notice$ son fijos en el loop de eventos:
gb__event$:tmpl(gb__sysgui)
gb__event=len(gb__event$)
dim gb__generic$:noticetpl(0,0)
gb__eoj=0
repeat
read record (gb__sysgui,siz=gb__event,err=gb__event_loop_end)gb__event$
if gb__event.code$="N" then
: gb__generic$=notice(gb__sysgui,gb__event.x%);
: gb__notice$:noticetpl(gb__generic.objtype%,gb__event.flags%);
: gb__notice$=gb__generic$
cuerpo del loop de evento
until gb__eoj
Note que todas las variables definidas empiezan con gb__ (con dos rayas "underscores").
Semejantemente, todas las funciones definidas empiezan con fngb__.
_label
Convierte Números de Línea a Líneas de Etiquetas
Sintaxis
call "_label",inpgm$,outpgm$,errmsg$,always_create
Descripción
Esta utilidad examina un programa de Visual PRO/5 para todas
las referencias de número de línea, las convierte a líneas que referencian una
etiqueta, y genera etiquetas de línea como sea necesario. La salida se escribe
a un archivo de programa separado. Esta utilidad es usada por el GUIBuilder
en la función "Get Existing Code".
| Argumento |
Descripción |
| inpgm$ |
Nombre del programa fuente. No se modificará de forma alguna. |
| outpgm$ |
Programa de Salida (destino). Si existe, se borrará. |
| errmsg$ |
Retornado como "" si el outpgm$ se creó ok.
Retornado como "OK" si ninguna conversión fue necesaria y outpgm$ no fue creado.
Retornado como un mensaje de error si un problema fue encontrado. |
| always_create |
Si es 0: No crea el outpgm$ si no hay línea de etiqueta a convertir.
Si es 1: Crea el outpgm$ aún cuando no hay ninguna línea de etiqueta para convertir. |
|
