diff options
-rw-r--r-- | macosx/tkMacOSXWm.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c index 049098b..1950cfb 100644 --- a/macosx/tkMacOSXWm.c +++ b/macosx/tkMacOSXWm.c @@ -5600,7 +5600,8 @@ TkUnsupported1ObjCmd( Tcl_WrongNumArgs(interp, 2, objv, "window"); return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewBooleanObj(TkMacOSXInDarkMode(tkwin))); + Tcl_SetObjResult(interp, Tcl_NewBooleanObj( + TkMacOSXInDarkMode((Tk_Window) winPtr))); return TCL_OK; default: return TCL_ERROR; |