diff options
author | Kevin Walzer <kw@codebykevin.com> | 2021-08-21 11:45:40 (GMT) |
---|---|---|
committer | Kevin Walzer <kw@codebykevin.com> | 2021-08-21 11:45:40 (GMT) |
commit | 72dc38db65139f5d2447781da7ee4b7187fda3ca (patch) | |
tree | 7695d6011c4971308dc1a35cecc461c1b073f5d2 | |
parent | 9e8260fce8465df1fb1355ffb97ca653b9ede943 (diff) | |
download | tk-72dc38db65139f5d2447781da7ee4b7187fda3ca.zip tk-72dc38db65139f5d2447781da7ee4b7187fda3ca.tar.gz tk-72dc38db65139f5d2447781da7ee4b7187fda3ca.tar.bz2 |
Use native wrapper window for iconbadge; now works on Windows
-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"; |