diff options
-rw-r--r-- | win/tkWinWm.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 54e0ac9..b24c4f1 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -3897,17 +3897,17 @@ WmIconbadgeCmd( LPCWSTR string; HRESULT hr; Tk_Window badgewindow; - Window win; + WmInfo *wmPtr; if (objc < 4) { Tcl_WrongNumArgs(interp, 2, objv, "window ? badge?"); return TCL_ERROR; } - /* Parse args and determine image. */ + /* Parse args, get native wrapper window, and determine image. */ badgewindow = Tk_NameToWindow(interp, Tcl_GetString(objv[2]), tkwin); - win = Tk_WindowId(badgewindow); - hwnd = Tk_GetHWND(win); + wmPtr = ((TkWindow *) badgewindow)->wmInfoPtr; + hwnd = wmPtr->wrapper; badgestring = Tcl_GetString(objv[3]); string = L"Alert"; |