52 lines
1.8 KiB
Plaintext
52 lines
1.8 KiB
Plaintext
{
|
|
=========================================================================
|
|
MODULO : mensajes.4gl
|
|
OBJETIVO : Reemplazo NO deprecado de fgl_winmessage (Genero 6).
|
|
Usa MENU ... ATTRIBUTES(STYLE="dialog"), que NO bloquea otros
|
|
programas como si lo hace el cuadro modal del sistema.
|
|
USO : mbox_msg(titulo, texto, icono) -> aviso con boton OK
|
|
mbox_yn (titulo, texto, icono) BOOLEAN -> pregunta Si/No
|
|
ICONOS : "information" | "exclamation" | "question" | "stop"
|
|
NOTA : firma de mbox_msg = igual a fgl_winmessage(title,text,icon),
|
|
para poder reemplazar en la migracion con un find/replace.
|
|
=========================================================================
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Aviso simple (un boton OK). Reemplazo directo de fgl_winmessage().
|
|
#-------------------------------------------------------------------------
|
|
FUNCTION mbox_msg(l_title, l_text, l_icon)
|
|
DEFINE l_title, l_text, l_icon STRING
|
|
|
|
MENU l_title ATTRIBUTES(STYLE="dialog", COMMENT=l_text, IMAGE=l_icon)
|
|
COMMAND "OK"
|
|
EXIT MENU
|
|
ON ACTION close
|
|
EXIT MENU
|
|
END MENU
|
|
|
|
END FUNCTION
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Pregunta Si/No. Devuelve TRUE si el usuario elige "Si".
|
|
#-------------------------------------------------------------------------
|
|
FUNCTION mbox_yn(l_title, l_text, l_icon)
|
|
DEFINE l_title, l_text, l_icon STRING
|
|
DEFINE r BOOLEAN
|
|
|
|
LET r = FALSE
|
|
MENU l_title ATTRIBUTES(STYLE="dialog", COMMENT=l_text, IMAGE=l_icon)
|
|
COMMAND "Si"
|
|
LET r = TRUE
|
|
EXIT MENU
|
|
COMMAND "No"
|
|
LET r = FALSE
|
|
EXIT MENU
|
|
ON ACTION close
|
|
LET r = FALSE
|
|
EXIT MENU
|
|
END MENU
|
|
|
|
RETURN r
|
|
END FUNCTION
|