Mensajes y c.digos de error en tiempo de ejecuci.n.
 ============================================================

   Los mensajes de error de Objects tienen la siguiente estructura:

   Error Objects\<N. Error>  <Mensaje> : <ClassName>:<Method>

   N. Error   Mensaje 
   ---------------------------------------------------------------------

   1          Private Method
                                Se ha intentado acceder a un m.todo
                                LOCAL/HIDDEN desde fuera de la Clase.

   2          Protected Var
                                Se ha intentado cambiar el contenido
                                de una Variable PROTECTED/READONLY
                                desde fuera de la clase.

   3          Private Var
                                Se ha intentado acceder a una variable
                                LOCAL/HIDDEN desde fuera de la clase.

   4          Type-Prot Var.
                                Se ha intentado cambiar el contenido de
                                una variable con "tipo protegido" con un
                                tipo diferente de los admitidos en su
                                definici.n.

   5          Bad CodeBlock
                                La funci.n interna _AddMethod ha recibido,
                                como par.metro, un codeblock de definici.n
                                de m.todo no admitido por Objects.
                                Conviene dejar hacer al preprocesador y no
                                jugar con estas funciones.

   6          No Exp. Method
                                El archiconocido "No exported Method".
                                El mensaje que se manda al objeto no
                                est. definido para esa clase de objeto.
                                Tambi.n se puede estar invocando, a
                                trav.s de "parent()" a un m.todo de una
                                clase que no es ascendiente de nuestra clase.

   7          No PARENT Meth
                                En   :Parent( <ParentClass> ):<met>
                                El mensaje <met> no est. definido para
                                la clase ascendiente <ParentClass>.

   8          No Object Msg.
                                Has mandado un mensaje no soportado por
                                el sistema a una variable que no es
                                un objeto.

   9          Bad Parent Msg
                                Has enviado a Parent() un mensaje de
                                acceso a Var . de acceso a otro Padre.
                                S.lo puedes mandar v.a Parent() mensajes
                                de M.todos.

  10          Parent Exist
                                Has intentando a.adir un m.todo con el
                                mismo nombre que alguno de los padres de
                                la clase en creaci.n. El sistema crea
                                automaticamente m.todos con esos nombres
                                y no est. permitido sobrescribirlos.

  11          Reservado

  12          No executable
                                Has mandado el mensaje "exec() a un objeto
                                "Command" que no es ejecutable. Puedes
                                comprobar previamente si lo es con el
                                m.todo "lExec()" que devolver. .T. si
                                se puede ejecutar.

  13          No Command Obj
                                Mandado el mensaje "send( CommandObj,...)
                                a un objeto cualquiera, el primer par.metro
                                no es un objeto Command. Esto es preceptivo.

     Una ventana ALERT te mostrar. el mensaje de error y te preguntar.
   si quieres terminar ( Quit ). Los errores de 1 a 4 son "Warnings" y
   adem.s preguntar. si quieres continuar ( Default ).


       // - Sea nCount una InstVar PROTECTED de Obj :

         ? Obj:nCount      // resulta ser:  8

         ? Obj:nCount := 2 // Provoca Warning #2. Si eliges "Default"
                           // se imprime en consola: 2

         ? Obj:nCount      // ahora es:  2

       // - Sea ahora nCount HIDDEN:

         ? Obj:nCount      // Provoca Warning #3. Si Eliges "Default"
                           // se imprime en consola: 2

       // - Sea ahora PUBLIC pero con protecci.n de tipo:
       //   EXPORT nCount AS Character

         ? Obj:nCount := nil // Provoca Warning #4. Si eliges "Default"
                             // se imprime en consola: NIL

     Si en cualquiera de estos casos eliges "Quit", la aplicaci.n
   terminar. como con cualquier otro error irrecuperable, d.ndote por
   consola la lista de llamadas de la pila y devolviendo la aplicaci.n
   un errorlevel = 1.