[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.3 and 1.4

version 1.3, 2017/07/12 15:42:23 version 1.4, 2017/07/17 21:35:32
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(objectContainer(nObject) =          if (nullified(objectContainer(nObject) =
                 malloc(sizeof(XtAppContext))))                  malloc(sizeof(XtAppContext))))
         {          {
Line 28  declareTypeExtension(dup) Line 28  declareTypeExtension(dup)
         target((sXtAppContext *) objectContainer(nObject)).context =          target((sXtAppContext *) objectContainer(nObject)).context =
                 target((sXtAppContext *) objectContainer(oObject)).context;                  target((sXtAppContext *) objectContainer(oObject)).context;
     }      }
       else if (subType(oObject) == CALLBACK)
       {
           typeError;
       }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
           if (nullified(nObject = allocation(s_etat_processus, EXT)))
           {
               typeSystemError;
           }
   
           initializeObject(nObject, oObject);
   
         if (nullified(objectContainer(nObject) =          if (nullified(objectContainer(nObject) =
                 malloc(sizeof(sXtAppContext))))                  malloc(sizeof(sXtAppContext))))
         {          {
Line 57  declareTypeExtension(drop) Line 68  declareTypeExtension(drop)
     {      {
         free(objectContainer(oObject));          free(objectContainer(oObject));
     }      }
       else if (subType(oObject) == CALLBACK)
       {
           free(objectContainer(oObject));
       }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
         free(objectContainer(oObject));          free(objectContainer(oObject));
Line 86  declareTypeExtension(disp) Line 101  declareTypeExtension(disp)
         sprintf(s, "XtAppContext $ %016llX",          sprintf(s, "XtAppContext $ %016llX",
                 (long long unsigned int) objectContainer(oObject));                  (long long unsigned int) objectContainer(oObject));
     }      }
       else if (subType(oObject) == CALLBACK)
       {
           if ((s = malloc(28 * sizeof(unsigned char))) == NULL)
           {
               typeSystemError;
           }
   
           sprintf(s, "Callback $ %016llX",
                   (long long unsigned int) objectContainer(oObject));
       }
     else if (subType(oObject) == WIDGET)      else if (subType(oObject) == WIDGET)
     {      {
         if ((s = malloc(26 * sizeof(unsigned char))) == NULL)          if ((s = malloc(26 * sizeof(unsigned char))) == NULL)
Removed from v.1.3  
changed lines
  Added in v.1.4

CVSweb interface <joel.bertrand@systella.fr>