diff options
Diffstat (limited to 'generic/tkTextDisp.c')
| -rw-r--r-- | generic/tkTextDisp.c | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index 0849307..c910619 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -3122,17 +3122,13 @@ GenerateWidgetViewSyncEvent( TkText *textPtr, /* Information about text widget. */ Bool InSync) /* True if in sync, false otherwise */ { - union {XEvent general; XVirtualEvent virtual;} event; - - 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("WidgetViewSync"); - event.virtual.user_data = Tcl_NewBooleanObj(InSync); - Tk_HandleEvent(&event.general); + Tcl_Obj *params[4]; + + params[0] = Tcl_NewStringObj(Tk_PathName(textPtr->tkwin), -1); + params[1] = Tcl_NewStringObj("<<WidgetViewSync>>", -1); + params[2] = Tcl_NewStringObj("-data", -1); + params[3] = Tcl_NewBooleanObj(InSync); + TkHandleEventGenerate(textPtr->interp, textPtr->tkwin, 4, params); } /* |