diff options
Diffstat (limited to 'generic/tkText.c')
| -rw-r--r-- | generic/tkText.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index 3114835..dc50b92 100644 --- a/generic/tkText.c +++ b/generic/tkText.c @@ -5389,21 +5389,13 @@ static void GenerateModifiedEvent( TkText *textPtr) /* Information about text widget. */ { - union { - XEvent general; - XVirtualEvent virtual; - } event; + Tcl_Obj *params[2]; Tk_MakeWindowExist(textPtr->tkwin); - memset(&event, 0, sizeof(event)); - event.general.xany.type = VirtualEvent; - event.general.xany.serial = NextRequest(Tk_Display(textPtr->tkwin)); - event.general.xany.send_event = False; - event.general.xany.window = Tk_WindowId(textPtr->tkwin); - event.general.xany.display = Tk_Display(textPtr->tkwin); - event.virtual.name = Tk_GetUid("Modified"); - Tk_HandleEvent(&event.general); + params[0] = Tcl_NewStringObj(Tk_PathName(textPtr->tkwin), -1); + params[1] = Tcl_NewStringObj("<<Modified>>", -1); + TkHandleEventGenerate(textPtr->interp, textPtr->tkwin, 2, params); } /* |