Tk Source Code

Check-in [e0d15594]
Login

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

Overview
Comment:compiler warnings
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: e0d155941cfb8029589f4cf1d5ce2b22abb7ee1f
User & Date: dgp 2012-04-18 12:30:49
Context
2012-04-18
18:22
make some internal tables const check-in: a1af7fc2 user: jan.nijtmans tags: core-8-5-branch
12:30
compiler warnings check-in: e0d15594 user: dgp tags: core-8-5-branch
04:40
make loading of tk.dll in cygwin possible reduce command table size check-in: 0cb2832c user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkWindow.c.

147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
    {"message",		NULL,			Tk_MessageObjCmd,	ISSAFE},
    {"panedwindow",	NULL,			Tk_PanedWindowObjCmd,	ISSAFE},
    {"radiobutton",	NULL,			Tk_RadiobuttonObjCmd,	ISSAFE},
    {"scale",		NULL,			Tk_ScaleObjCmd,		ISSAFE},
    {"scrollbar",	Tk_ScrollbarCmd,	NULL,			PASSMAINWINDOW|ISSAFE},
    {"spinbox",		NULL,			Tk_SpinboxObjCmd,	ISSAFE},
    {"text",		NULL,			Tk_TextObjCmd,		PASSMAINWINDOW|ISSAFE},
    {"toplevel",	NULL,			Tk_ToplevelObjCmd,	0, 0},

    /*
     * Classic widget class commands.
     */

    {"::tk::button",	NULL,			Tk_ButtonObjCmd,	ISSAFE},
    {"::tk::canvas",	NULL,			Tk_CanvasObjCmd,	PASSMAINWINDOW|ISSAFE},







|







147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
    {"message",		NULL,			Tk_MessageObjCmd,	ISSAFE},
    {"panedwindow",	NULL,			Tk_PanedWindowObjCmd,	ISSAFE},
    {"radiobutton",	NULL,			Tk_RadiobuttonObjCmd,	ISSAFE},
    {"scale",		NULL,			Tk_ScaleObjCmd,		ISSAFE},
    {"scrollbar",	Tk_ScrollbarCmd,	NULL,			PASSMAINWINDOW|ISSAFE},
    {"spinbox",		NULL,			Tk_SpinboxObjCmd,	ISSAFE},
    {"text",		NULL,			Tk_TextObjCmd,		PASSMAINWINDOW|ISSAFE},
    {"toplevel",	NULL,			Tk_ToplevelObjCmd,	0},

    /*
     * Classic widget class commands.
     */

    {"::tk::button",	NULL,			Tk_ButtonObjCmd,	ISSAFE},
    {"::tk::canvas",	NULL,			Tk_CanvasObjCmd,	PASSMAINWINDOW|ISSAFE},
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
				 * form "prog instance". */
{
    Tk_Window tkwin;
    int dummy, isSafe;
    Tcl_HashEntry *hPtr;
    register TkMainInfo *mainPtr;
    register TkWindow *winPtr;
    register TkCmd *cmdPtr;
    ClientData clientData;
    ThreadSpecificData *tsdPtr = (ThreadSpecificData *)
	    Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));

    /*
     * Panic if someone updated the TkWindow structure without also updating
     * the Tk_FakeWin structure (or vice versa).







|







856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
				 * form "prog instance". */
{
    Tk_Window tkwin;
    int dummy, isSafe;
    Tcl_HashEntry *hPtr;
    register TkMainInfo *mainPtr;
    register TkWindow *winPtr;
    register const TkCmd *cmdPtr;
    ClientData clientData;
    ThreadSpecificData *tsdPtr = (ThreadSpecificData *)
	    Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));

    /*
     * Panic if someone updated the TkWindow structure without also updating
     * the Tk_FakeWin structure (or vice versa).
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
	     * window.
	     */

	    winPtr->mainPtr->deletionEpoch++;
	}
	winPtr->mainPtr->refCount--;
	if (winPtr->mainPtr->refCount == 0) {
	    register TkCmd *cmdPtr;

	    /*
	     * We just deleted the last window in the application. Delete the
	     * TkMainInfo structure too and replace all of Tk's commands with
	     * dummy commands that return errors. Also delete the "send"
	     * command to unregister the interpreter.
	     *







|







1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
	     * window.
	     */

	    winPtr->mainPtr->deletionEpoch++;
	}
	winPtr->mainPtr->refCount--;
	if (winPtr->mainPtr->refCount == 0) {
	    register const TkCmd *cmdPtr;

	    /*
	     * We just deleted the last window in the application. Delete the
	     * TkMainInfo structure too and replace all of Tk's commands with
	     * dummy commands that return errors. Also delete the "send"
	     * command to unregister the interpreter.
	     *