Tk Source Code

Check-in [25a4eae2]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [7ef5bdc18527dcaa3ab]: trunk/revised_text : mac os x: compilation warnings
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | revised_text | tip-466
Files: files | file ages | folders
SHA3-256: 25a4eae2bcc0814bc559d3bbf07bf869595d086c7dd4d91e735c271174297ecb
User & Date: jan.nijtmans 2018-10-19 21:40:42
Context
2018-10-19
21:48
Fix [7ef5bdc18527dcaa3ab] (one more warning): trunk/revised_text : mac os x: compilation warnings check-in: 25847994 user: jan.nijtmans tags: revised_text, tip-466
21:40
Fix [7ef5bdc18527dcaa3ab]: trunk/revised_text : mac os x: compilation warnings check-in: 25a4eae2 user: jan.nijtmans tags: revised_text, tip-466
21:34
make tkUnixRFont.c compile again. See: [e1b1dd7bbfcad23066]: trunk/revised_text: compilation error check-in: f4972dda user: jan.nijtmans tags: revised_text, tip-466
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkConfig.c.

1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
    Tk_Window tkwin)		/* Window corresponding to recordPtr. */
{
    Tcl_Obj *objPtr;
    void *internalPtr;		/* Points to internal value of option in
				 * record. */

    objPtr = NULL;
    if (optionPtr->specPtr->internalOffset >= 0) {
       internalPtr = (char *)recordPtr + optionPtr->specPtr->internalOffset;
       switch (optionPtr->specPtr->type) {
       case TK_OPTION_BOOLEAN:
	   objPtr = Tcl_NewIntObj(*((int *) internalPtr));
	   break;
       case TK_OPTION_INT:
	   objPtr = Tcl_NewIntObj(*((int *) internalPtr));






|







1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
    Tk_Window tkwin)		/* Window corresponding to recordPtr. */
{
    Tcl_Obj *objPtr;
    void *internalPtr;		/* Points to internal value of option in
				 * record. */

    objPtr = NULL;
    if (optionPtr->specPtr->internalOffset != TCL_AUTO_LENGTH) {
       internalPtr = (char *)recordPtr + optionPtr->specPtr->internalOffset;
       switch (optionPtr->specPtr->type) {
       case TK_OPTION_BOOLEAN:
	   objPtr = Tcl_NewIntObj(*((int *) internalPtr));
	   break;
       case TK_OPTION_INT:
	   objPtr = Tcl_NewIntObj(*((int *) internalPtr));