(clientData, eventPtr)
| 1222 | * |
| 1223 | * Results: |
| 1224 | * None. |
| 1225 | * |
| 1226 | * Side effects: |
| 1227 | * When the window gets deleted, internal structures get |
| 1228 | * cleaned up. When it gets exposed, it is redisplayed. |
| 1229 | * |
| 1230 | *-------------------------------------------------------------- |
| 1231 | */ |
| 1232 | |
| 1233 | static void |
| 1234 | EntryEventProc(clientData, eventPtr) |
| 1235 | ClientData clientData; /* Information about window. */ |
| 1236 | XEvent *eventPtr; /* Information about event. */ |
| 1237 | { |
| 1238 | Entry *entryPtr = (Entry *) clientData; |
| 1239 | if (eventPtr->type == Expose) { |
| 1240 | EventuallyRedraw(entryPtr); |
| 1241 | entryPtr->flags |= BORDER_NEEDED; |
| 1242 | } else if (eventPtr->type == DestroyNotify) { |
| 1243 | Tcl_DeleteCommand(entryPtr->interp, Tk_PathName(entryPtr->tkwin)); |
| 1244 | entryPtr->tkwin = NULL; |
| 1245 | if (entryPtr->flags & REDRAW_PENDING) { |
| 1246 | Tk_CancelIdleCall(DisplayEntry, (ClientData) entryPtr); |
| 1247 | } |
| 1248 | Tk_EventuallyFree((ClientData) entryPtr, DestroyEntry); |
| 1249 | } else if (eventPtr->type == ConfigureNotify) { |
nothing calls this directly
no test coverage detected