Ayuda con el comando DoInputform

Código:

HPHP49-X,*) !NO CODE
!RPL
::
"LABEL A" 20 13
"LABEL B" 20 25
"LABEL C" 20 37
'DROPFALSE 51 11 30 9 ONE { BINT3 BINT4 } FOUR "" MINUSONE MINUSONE MINUSONE MINUSONE
'DROPFALSE 51 23 30 9 ONE { BINT0 } FOUR "" MINUSONE MINUSONE  MINUSONE MINUSONE
'DROPFALSE 51 35 30 9 ONE { BINT0 } FOUR "" MINUSONE MINUSONE MINUSONE MINUSONE
3 3 'DROPFALSE
"EJEMPLO"
DoInputForm
;
@

Buenas lo que quiero es que en mi "label A" (DATA FIELD), quiero que al presionar [EDIT] me muestre el MTRW(editor de matrises).

En los siguientes label ingresae numeros.....

Pero tambien quiero de que al presionar [OK], chequee de que se llenaron los campos los 3 label (data field), en caso de que no se halla llenado los campos, me salga un mensaje y posteriormente regresar al formulario para poder ingresar el dato faltante.

Bueno eso es mi duda y espero que me ayuden.

Como estan viendo estoy usando el comando DoInputForm y no Ifmain, porque no se cuales son los message handler para Ifmain pero si se para DoInpuntform...

Bueno tambien seria de mucha ayuda si me muestran el uso de Ifmain con el problema que tengo.

PD: El foro esta de la csmr
PD2: En este ejemplo son tres label y tres campos

Ejemplo DoInputForm

En este ejemplo hay 3 campos texto.
El primero contiene a una formación (matriz o arreglo) y los otros dos contienen a un número real.

En el message handler del campo texto que contiene una formación:

Con el mensaje 23, podemos editar la formación en el MTRW al presionar EDIT.


Con el mensaje 36, el campo también aceptará a matrices simbólicas (tipo 29).


En el message handler del formulario:

Con el mensaje 29, evitaremos que el formulario termine con ENTER u OK, si existe algún campo vacío


Código para el editor de Debug 4x:

Código:

::
"LABEL A" 1 13
"LABEL B" 1 25
"LABEL C" 1 37

'
:: BINT23 #=casedrop ( -> T/F )
  ::                      ( )
      4GETLAM              ( #c )
      ROMPTR gFldVal      ( valor )
*      EditaFormacionEnMTRW ( RealArry/CArry/MATRIX T // F )
RunSafeFlags
:: BEGIN
  BINT91 ClrSysFlag
  DUPTYPEBINT? ( ob flag )
  OVER        ( ob flag ob )
  TYPECOL?    ( ob flag flag' )
  OR          ( ob flag'' )
  ITE
    :: DROP                    ( )
        FLASHPTR RunDoNewMatrix ( ob' T // F ) ( abre MTRW )
    ;
    FLASHPTR RunDoOldMatrix    ( ob' T // F ) ( edita ob en MTRW )

  ITE
    :: DUPTYPELIST?      ( ob' flag )
        ITE
          FALSE            ( ob' F )
          TrueTrue        ( ob' T T )
    ;
    FalseTrue
  UNTIL
                          ( RealArry/CArry/MATRIX T // F )
;
********************
      IT
      :: 5GETLAM ROMPTR sFldVal ;
      TRUE                ( T )
  ;
  BINT36 #=casedrop ( -> {{}} T // F )
  ::                ( )
      { { "Arreglo Real"    :: BINT2 FALSE "[]"  ; }
        { "Arreglo complejo" :: BINT3 FALSE "[()]" ; }
        { "Matriz simbólica" :: BINT2 FALSE "[]"  ; }
      }              ( {{}} )
      TRUE          ( {{}} T )
  ;
  DROPFALSE
;
35 11 90 9 ONE { BINT3 BINT4 BINT29 } FOUR
"" MINUSONE MINUSONE
 MINUSONE MINUSONE

'DROPFALSE
35 23 90 9 ONE { BINT0 } FOUR
"" MINUSONE MINUSONE
 MINUSONE MINUSONE

'DROPFALSE
35 35 90 9 ONE { BINT0 } FOUR
"" MINUSONE MINUSONE
MINUSONE MINUSONE

3 3
' :: BINT29 #=casedrop ( IfMsgKeyOK ) ( -> flag TRUE // F )
    :: FLASHPTR GetFieldVals ( ob1 ob2...obn )
        14GETLAM              ( ob1 ob2...obn #n )
        {}N                  ( { ob1 ob2...obn } )
        MINUSONE SWAP        ( MINUSONE { ob1 ob2...obn } )
        FLASHPTR ListPos      ( #pos/#0 )
        #0=ITE
          TrueTrue
          :: "Escribe todos los datos" FlashWarning FalseTrue ;
                              ( flag T )
    ;
    DROPFALSE
  ;                    ( Message Handler del formulario )
"EJEMPLO"
DoInputForm
;

Código para la calculadora o el emulador:

Código:

D9D20C2A2031000C4142454C40214119201000011920D0000C2A2031000C4142454C4022411920100001192091000C2A2031000C4142454C402341192010000119205200079E60D9D20DE13393943D9D204364329E200B08C00FBA2D9D202A1705943344062BE0532C2307715357B30E3B43D9D2044230CA6207006000B2130CA6207005000E3B43D9D2009153E3B430CA3078E72B2130455638C170B213022A43D9D20E364329E200B08D0B213018A30B2130F623393943D9D2047A2047A20C2A20D10001427275676C6F602255616C6D9D20B11330CA30C2A2090000B5D5B2130B213047A20C2A20520001427275676C6F60236F6D607C656A6F6D9D20521330CA30C2A20D0000B58292D5B2130B213047A20C2A2052000D416472796A7023796D6263FC6963616D9D20B11330CA30C2A2090000B5D5B2130B2130B213018A30B213098253B2130119203200011920B000011920A500011920900001113347A2052133F213392233B2130F2133C2A2050000F9933F9933F9933F9933B09B21192032000119207100011920A500011920900001113347A2070133B2130F2133C2A2050000F9933F9933F9933F9933B09B21192032000119203200011920A500011920900001113347A2070133B2130F2133C2A2050000F9933F9933F9933F99331192030000119203000079E60D9D209223393943D9D20CA620200BB008964395450F993332230CA620600DF0051F6378E72D9D20C2A2033000543736279626560247F646F63702C6F63702461647F63716EE245563B2130B213098253B2130C2A203100054A454D405C4F4173C2B2130