Mensaje en el centro de la pantalla con grob personalizado

Hola.

Me gustaría crear un cuadro de mensaje con un icono de advertencia
junto con la cadena de texto "sintaxis no válida", a semejanza
del que puedes ver usando el comando FlashWarning o el comando ^DoAlert.

Lo que me interesa es cómo crear la advertencia
icono.

De todas formas, cualquier ayuda sería muy apreciada!

Un cordial saludo.

El siguiente programa muestra un mensaje personalizado con el comando
ROMPTR DoMsgBox.
Puedes poner el grob que desees y también cualquier menú.
En las figuras se muestra el resultado.

Código:

NULLNAME MensajePersonalizado ( -> )
::
"HonradosHP\0AEl gran foro"
ZEROZERO
GROB 00042 E0000E00000B10CD70EDF1ECF1F813FA537B637DA3B5A3E7C3E7F1CBF08B700B00
' :: NoExitAction
    {
      { "TORNA" :: TakeOver ABUFF INVGROB DROP ; }
      NullMenuKey
      NullMenuKey
      NullMenuKey
      NullMenuKey
      { "OK"    :: TakeOver FLASHPTR DoMKeyOK ; }
    }
  ;
ROMPTR DoMsgBox
DROP
;


Captura de pantalla	Pantalla al presionar tecla TORNA

Muchas gracias, carloshp50.

Este programa hace lo que esperaba.

Quisiera saber cuales son los argumentos y resultados del comando ROMPTR DoMsgBox.

Direcc...Nombre......Descripción
0000B1 ˜DoMsgBox ( $/# ob ob' grob menu -> T )
..............................( $/# ob ob' MINUSONE menu -> T )
Con este comando puedes mostrar un mensaje como al usar FlashWarning, pero de manera personalizada. Puedes colocar el menú y el grob que desees. Si no deseas ningún grob, pon MINUSONE, (como al usar ˆCk&DoMsgBox).
ob y ob’ son dos objetos cualesquiera.
Este comando es llamado por FlashWarning, ˆDoAlert y ˆCk&DoMsgBox.

Direcc...Nombre..........Descripción
0040B1 ˜MsgBoxMenu ( -> menu )
Retorna el menu por defecto que se puede usar al llamar al comando ˆCk&DoMsgBox para mostrar mensajes personalizados. Por ejemplo, el siguiente código hace lo mismo que el comando FlashWarning sobre la cadena:

Código:

:: "HonradosHP\0AEl mejor foro" ( $ )
ZEROZERO            ( $ #0 #0 )
ROMPTR grobAlertIcon ( $ #0 #0 grob )
' ROMPTR MsgBoxMenu  ( $ #0 #0 grob menu )
ERRBEEP              ( $ #0 #0 grob menu ) ( beep )
ROMPTR DoMsgBox      ( T )
DROP                ( )
;