Check-in [d18db48a4f]
Overview
SHA1:d18db48a4f434ec5e3fdbee94d25adff5a85116a
Date: 2011-09-11 19:27:24
User: rkeene
Comment:Updated to initialize stubs correctly
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2012-07-19
00:25
[19a5c7951a] Updated to use newer mingw32 conventions (user: rkeene, tags: trunk)
2011-09-11
19:27
[d18db48a4f] Updated to initialize stubs correctly (user: rkeene, tags: trunk)
2011-09-09
15:04
[403c5120ce] Fixed up interp->result accesses (user: rkeene, tags: trunk)
Changes

Modified tkWindow.c from [9e0d0c6072] to [93d8724a2a].

   177    177   	} else {\n\
   178    178   	    set msg \"can't find $tk_library/ctk.tcl; perhaps you \"\n\
   179    179   	    append msg \"need to\\ninstall CTk or set your CTK_LIBRARY \"\n\
   180    180   	    append msg \"environment variable?\"\n\
   181    181   	    error $msg\n\
   182    182   	}";
   183    183       int retval;
          184  +
          185  +#ifdef USE_TCL_STUBS
          186  +    Tcl_InitStubs(interp, "8", 0);
          187  +#endif
   184    188   
   185    189   #ifdef USE_TCL_STUBS
   186    190       winPtr = Tk_CreateMainWindow(interp, NULL, "ctk", "ctk");
   187    191       if (winPtr == NULL) {
   188    192           return(TCL_ERROR);
   189    193       }
   190    194   #endif