diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-31 19:54:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-31 19:54:49 (GMT) |
| commit | 8d2dbe96066152901e507e44cf7dec9b00f2bee3 (patch) | |
| tree | 27cd4550429711dfdbcc60e83e12d01c5f4b9b03 /win/tkWinDialog.c | |
| parent | c46f74289a79498f91f6bd70d409449bc6f00b41 (diff) | |
| download | tk-8d2dbe96066152901e507e44cf7dec9b00f2bee3.zip tk-8d2dbe96066152901e507e44cf7dec9b00f2bee3.tar.gz tk-8d2dbe96066152901e507e44cf7dec9b00f2bee3.tar.bz2 | |
Change (internal) signature of TkMenuConfigureEntryDrawOptions/TkActivateMenuEntry such that - if compiled with Tcl 9.0 headers - indexes > 2G can be used.
Also, change a lot of Tcl_NewIntObj()/Tcl_NewBooleanObj() calls to Tcl_NewWideIntObj().
Diffstat (limited to 'win/tkWinDialog.c')
| -rw-r--r-- | win/tkWinDialog.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index 42a588b..506247c 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -3076,7 +3076,7 @@ GetFontObj( Tcl_NewStringObj(Tcl_DStringValue(&ds), -1)); Tcl_DStringFree(&ds); pt = -MulDiv(plf->lfHeight, 72, GetDeviceCaps(hdc, LOGPIXELSY)); - Tcl_ListObjAppendElement(NULL, resObj, Tcl_NewIntObj(pt)); + Tcl_ListObjAppendElement(NULL, resObj, Tcl_NewWideIntObj(pt)); if (plf->lfWeight >= 700) { Tcl_ListObjAppendElement(NULL, resObj, Tcl_NewStringObj("bold", -1)); } @@ -3254,7 +3254,7 @@ FontchooserCget( } break; case FontchooserVisible: - resObj = Tcl_NewBooleanObj(hdPtr->hwnd && IsWindow(hdPtr->hwnd)); + resObj = Tcl_NewWideIntObj((hdPtr->hwnd != NULL) && IsWindow(hdPtr->hwnd)); break; default: resObj = Tcl_NewStringObj("", 0); |