diff options
Diffstat (limited to 'generic/tkListbox.c')
| -rw-r--r-- | generic/tkListbox.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/generic/tkListbox.c b/generic/tkListbox.c index c7effdd..14c4d0b 100644 --- a/generic/tkListbox.c +++ b/generic/tkListbox.c @@ -3223,16 +3223,11 @@ static void GenerateListboxSelectEvent( Listbox *listPtr) /* Information about widget. */ { - union {XEvent general; XVirtualEvent virtual;} event; - - memset(&event, 0, sizeof(event)); - event.general.xany.type = VirtualEvent; - event.general.xany.serial = NextRequest(Tk_Display(listPtr->tkwin)); - event.general.xany.send_event = False; - event.general.xany.window = Tk_WindowId(listPtr->tkwin); - event.general.xany.display = Tk_Display(listPtr->tkwin); - event.virtual.name = Tk_GetUid("ListboxSelect"); - Tk_HandleEvent(&event.general); + Tcl_Obj *params[2]; + + params[0] = Tcl_NewStringObj(Tk_PathName(listPtr->tkwin), -1); + params[1] = Tcl_NewStringObj("<<ListboxSelect>>", -1); + TkHandleEventGenerate(listPtr->interp, listPtr->tkwin, 2, params); } /* |