Return to XtRemoveCallback.rplc CVS log

Up to [local] / rpl / modules / motif

Annotation of rpl/modules/motif/XtRemoveCallback.rplc, revision 1.2

1.1       bertrand    1: #include "src/rplexternals.h"
                      2: #include "motif.h"
                      3: 
                      4: declareExternalFunction(XtRemoveCallback)
                      5:    declareObject(widget);
                      6:    declareObject(callback);
                      7:    declareObject(callbackFromList);
                      8:    declareDaisyChain(current);
                      9:    declareDaisyChain(previous);
                     10:    declareDaisyChain(next);
                     11: 
                     12:    HEADER
                     13:        declareHelpString("Remove callback from a widget\n"
                     14:                "    2: widget\n"
                     15:                "    1: callback\n");
                     16:        numberOfArguments(2);
                     17:    FUNCTION
                     18:        if (initializationDone eq true) then
                     19:            pullFromStack(callback, external);
                     20:            returnOnError(freeObject(callback));
                     21: 
                     22:            pullFromStack(widget, external);
                     23:            returnOnError(freeObject(callback); freeObject(widget));
                     24: 
                     25:            ifIsExternal(widget, WIDGET) then
                     26:            orElse
                     27:                executionError("Type mismatch error");
                     28:                returnOnError(freeObject(callback); freeObject(widget));
                     29:            endIf
                     30: 
                     31:            ifIsExternal(callback, CALLBACK) then
                     32:            orElse
                     33:                executionError("Type mismatch error");
                     34:                returnOnError(freeObject(callback); freeObject(widget));
                     35:            endIf
                     36: 
                     37:            current = lCallbacks;
                     38:            nullify(previous);
                     39: 
                     40:            repeatWhile(not nullified(current))
                     41:                callbackFromList = fetchElementFromDaisyChain(current);
                     42: 
1.2     ! bertrand   43:                if (((objectContainer(sXtCallback, callbackFromList))->widget
        !            44:                        eq target(objectContainer(Widget, widget))) and
1.1       bertrand   45:                        (callback eq callbackFromList)) then
                     46:                    break;
                     47:                endIf
                     48: 
                     49:                previous = current;
                     50:                nextElementOfDaisyChain(current);
                     51:            endWhile
                     52: 
                     53:            if (nullified(current)) then
                     54:                executionError("Callback not found");
                     55:                returnOnError(freeObject(callback); freeObject(widget));
                     56:            endIf
                     57: 
                     58:            if (callbackFromList eq fetchElementFromDaisyChain(lCallbacks)) then
                     59:                next = current;
                     60:                nextElementOfDaisyChain(next);
                     61:                lCallbacks = next;
                     62: 
                     63:                freeObject(callbackFromList);
                     64:                free(current);
                     65:            orElse
                     66:                previous->next = current->next;
                     67: 
                     68:                freeObject(callbackFromList);
                     69:                free(current);
                     70:            endIf
                     71:        orElse
                     72:            executionError("Application not initialized");
                     73:            returnOnError();
                     74:        endIf
                     75:    END
                     76: endExternalFunction
                     77: 
                     78: // vim: ts=4