[BACK]Return to types.rplc CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif

Diff for /rpl/modules/motif/types.rplc between versions 1.2 and 1.6

version 1.2, 2017/07/10 14:48:44 version 1.6, 2017/07/30 21:59:41
Line 8  declareTypeExtension(dup) Line 8  declareTypeExtension(dup)
   
     oObject = (*((structObject **) arg));      oObject = (*((structObject **) arg));
   
     if (nullified(nObject = allocation(s_etat_processus, EXT)))      if (subType(oObject) == APPCONTEXT)
     {      {
         typeSystemError;          if (nullified(nObject = allocation(s_etat_processus, EXT)))
     }          {
               typeSystemError;
           }
   
     initializeObject(nObject, oObject);          initializeObject(nObject, oObject);
   
     if (subType(oObject) == APPCONTEXT)          if (nullified(objectOf(nObject) =
     {  
         if (nullified(objectContainer(nObject) =  
                 malloc(sizeof(XtAppContext))))                  malloc(sizeof(XtAppContext))))
         {          {
             typeSystemError;              typeSystemError;
         }          }
   
         target((sXtAppContext *) objectContainer(nObject)).widget =          target(objectContainer(sXtAppContext, nObject)).widget =
                 target((sXtAppContext *) objectContainer(oObject)).widget;                  target(objectContainer(sXtAppContext, oObject)).widget;
         target((sXtAppContext *) objectContainer(nObject)).context =          target(objectContainer(sXtAppContext, nObject)).context =
                 target((sXtAppContext *) objectContainer(oObject)).context;                  target(objectContainer(sXtAppContext, oObject)).context;
       }
       else if (subType(oObject) == CALLBACK)
       {
           typeError;
     }      }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
         if (nullified(objectContainer(nObject) =          if (nullified(nObject = allocation(s_etat_processus, EXT)))
           {
               typeSystemError;
           }
   
           initializeObject(nObject, oObject);
   
           if (nullified(objectOf(nObject) =
                 malloc(sizeof(sXtAppContext))))                  malloc(sizeof(sXtAppContext))))
         {          {
             typeSystemError;              typeSystemError;
         }          }
   
         target((Widget *) objectContainer(nObject)) =          target(objectContainer(Widget, nObject)) =
                 target((Widget *) objectContainer(oObject));                  target(objectContainer(Widget, oObject));
     }      }
     else      else
     {      {
         typeError;          typeError;
     }      }
   
       target((struct_objet **) arg) = nObject;
     typeSuccess;      typeSuccess;
 endTypeExtension  endTypeExtension
   
Line 54  declareTypeExtension(drop) Line 66  declareTypeExtension(drop)
   
     if (subType(oObject) == APPCONTEXT)      if (subType(oObject) == APPCONTEXT)
     {      {
         free(objectContainer(oObject));          free(objectOf(oObject));
       }
       else if (subType(oObject) == CALLBACK)
       {
           free(objectOf(oObject));
     }      }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
         free(objectContainer(oObject));          free(objectOf(oObject));
     }      }
     else      else
     {      {
Line 83  declareTypeExtension(disp) Line 99  declareTypeExtension(disp)
         }          }
   
         sprintf(s, "XtAppContext $ %016llX",          sprintf(s, "XtAppContext $ %016llX",
                 (long long unsigned int) objectContainer(oObject));                  (long long unsigned int) objectOf(oObject));
       }
       else if (subType(oObject) == CALLBACK)
       {
           if ((s = malloc(28 * sizeof(unsigned char))) == NULL)
           {
               typeSystemError;
           }
   
           sprintf(s, "Callback $ %016llX",
                   (long long unsigned int) objectOf(oObject));
     }      }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
Line 93  declareTypeExtension(disp) Line 119  declareTypeExtension(disp)
         }          }
   
         sprintf(s, "Widget $ %016llX",          sprintf(s, "Widget $ %016llX",
                 (long long unsigned int) objectContainer(oObject));                  (long long unsigned int) objectOf(oObject));
     }      }
     else      else
     {      {
Removed from v.1.2  
changed lines
  Added in v.1.6

CVSweb interface <joel.bertrand@systella.fr>