{
=========================================================================
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