Cross Reference: /ast/src/lib/libtk/unix/tkUnixSelect.c

Lines Matching refs:retrPtr
186 	TkSelRetrievalInfo *retrPtr;
188 	for (retrPtr = pendingRetrievals; retrPtr != NULL;
189 		retrPtr = retrPtr->nextPtr) {
190 	    if (retrPtr->nextPtr == &retr) {
191 		retrPtr->nextPtr = retr.nextPtr;
379 	register TkSelRetrievalInfo *retrPtr;
385 	for (retrPtr = pendingRetrievals; ; retrPtr = retrPtr->nextPtr) {
386 	    if (retrPtr == NULL) {
389 	    if ((retrPtr->winPtr == winPtr)
390 		    && (retrPtr->selection == eventPtr->xselection.selection)
391 		    && (retrPtr->target == eventPtr->xselection.target)
392 		    && (retrPtr->result == -1)) {
393 		if (retrPtr->property == eventPtr->xselection.property) {
397 		    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
398 		    Tcl_AppendResult(retrPtr->interp,
399 			    Tk_GetAtomName(tkwin, retrPtr->selection),
401 			    Tk_GetAtomName(tkwin, retrPtr->target),
403 		    retrPtr->result = TCL_ERROR;
411 		eventPtr->xselection.requestor, retrPtr->property,
419 	    Tcl_SetResult(retrPtr->interp, "selection property too large",
421 	    retrPtr->result = TCL_ERROR;
428 		sprintf(retrPtr->interp->result,
431 		retrPtr->result = TCL_ERROR;
434             interp = retrPtr->interp;
436 	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
448 	    retrPtr->idleTime = 0;
450 		    (ClientData) retrPtr);
452 		    retrPtr->property);
453 	    while (retrPtr->result == -1) {
457 		    (ClientData) retrPtr);
462 		sprintf(retrPtr->interp->result,
465 		retrPtr->result = TCL_ERROR;
470             interp = retrPtr->interp;
472 	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
518     register TkSelRetrievalInfo *retrPtr = (TkSelRetrievalInfo *) clientData;
526     if (retrPtr->result != -1) {
529     retrPtr->idleTime++;
530     if (retrPtr->idleTime >= 5) {
538 	Tcl_SetResult(retrPtr->interp, "selection owner didn't respond",
540 	retrPtr->result = TCL_ERROR;
542 	retrPtr->timeout = Tcl_CreateTimerHandler(1000, SelTimeoutProc,
543 	    (ClientData) retrPtr);
868     register TkSelRetrievalInfo *retrPtr = (TkSelRetrievalInfo *) clientData;
875     if ((eventPtr->xproperty.atom != retrPtr->property)
877 	    || (retrPtr->result != -1)) {
882 	    eventPtr->xproperty.window, retrPtr->property, 0, MAX_PROP_WORDS,
889 	Tcl_SetResult(retrPtr->interp, "selection property too large",
891 	retrPtr->result = TCL_ERROR;
895 	retrPtr->result = TCL_OK;
897 	    || (type == retrPtr->winPtr->dispPtr->textAtom)
898 	    || (type == retrPtr->winPtr->dispPtr->compoundTextAtom)) {
900 	    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
901 	    sprintf(retrPtr->interp->result,
904 	    retrPtr->result = TCL_ERROR;
907         interp = retrPtr->interp;
909 	result = (*retrPtr->proc)(retrPtr->clientData, interp, propInfo);
912 	    retrPtr->result = result;
918 	    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
919 	    sprintf(retrPtr->interp->result,
922 	    retrPtr->result = TCL_ERROR;
926 		(Tk_Window) retrPtr->winPtr);
927         interp = retrPtr->interp;
929 	result = (*retrPtr->proc)(retrPtr->clientData, interp, string);
932 	    retrPtr->result = result;
939     retrPtr->idleTime = 0;