summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-06-22 07:41:17 (GMT)
committernijtmans <nijtmans>2010-06-22 07:41:17 (GMT)
commitd1c5374bb608709386205d4b61bef1578672e71d (patch)
tree14cad3250e33d4643410e01d9dd52ac86464802d /generic
parentb888cd3011dbbc4984d32475243bb501947969f2 (diff)
downloadtk-d1c5374bb608709386205d4b61bef1578672e71d.zip
tk-d1c5374bb608709386205d4b61bef1578672e71d.tar.gz
tk-d1c5374bb608709386205d4b61bef1578672e71d.tar.bz2
[Bug #3019363] "make genstubs" failure
Diffstat (limited to 'generic')
-rw-r--r--generic/ttk/ttkDecls.h24
-rw-r--r--generic/ttk/ttkGenStubs.tcl6
-rw-r--r--generic/ttk/ttkTheme.c5
3 files changed, 17 insertions, 18 deletions
diff --git a/generic/ttk/ttkDecls.h b/generic/ttk/ttkDecls.h
index 88b2921..93ea297 100644
--- a/generic/ttk/ttkDecls.h
+++ b/generic/ttk/ttkDecls.h
@@ -1,5 +1,5 @@
/*
- * $Id: ttkDecls.h,v 1.12 2010/02/05 21:33:14 jenglish Exp $
+ * $Id: ttkDecls.h,v 1.13 2010/06/22 07:41:17 nijtmans Exp $
*
* This file is (mostly) automatically generated from ttk.decls.
*/
@@ -139,7 +139,7 @@ typedef struct TtkStubs {
int magic;
int epoch;
int revision;
- struct TtkStubHooks *hooks;
+ const struct TtkStubHooks *hooks;
Ttk_Theme (*ttk_GetTheme) (Tcl_Interp *interp, const char *name); /* 0 */
Ttk_Theme (*ttk_GetDefaultTheme) (Tcl_Interp *interp); /* 1 */
@@ -150,17 +150,17 @@ typedef struct TtkStubs {
Ttk_ElementClass * (*ttk_RegisterElement) (Tcl_Interp *interp, Ttk_Theme theme, const char *elementName, Ttk_ElementSpec *elementSpec, void *clientData); /* 6 */
int (*ttk_RegisterElementFactory) (Tcl_Interp *interp, const char *name, Ttk_ElementFactory factoryProc, void *clientData); /* 7 */
void (*ttk_RegisterLayout) (Ttk_Theme theme, const char *className, Ttk_LayoutSpec layoutSpec); /* 8 */
- void (*reserved9)(void);
+ void *reserved9;
int (*ttk_GetStateSpecFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Ttk_StateSpec *spec_rtn); /* 10 */
Tcl_Obj * (*ttk_NewStateSpecObj) (unsigned int onbits, unsigned int offbits); /* 11 */
Ttk_StateMap (*ttk_GetStateMapFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 12 */
Tcl_Obj * (*ttk_StateMapLookup) (Tcl_Interp *interp, Ttk_StateMap map, Ttk_State state); /* 13 */
int (*ttk_StateTableLookup) (Ttk_StateTable map[], Ttk_State state); /* 14 */
- void (*reserved15)(void);
- void (*reserved16)(void);
- void (*reserved17)(void);
- void (*reserved18)(void);
- void (*reserved19)(void);
+ void *reserved15;
+ void *reserved16;
+ void *reserved17;
+ void *reserved18;
+ void *reserved19;
int (*ttk_GetPaddingFromObj) (Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Ttk_Padding *pad_rtn); /* 20 */
int (*ttk_GetBorderFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Ttk_Padding *pad_rtn); /* 21 */
int (*ttk_GetStickyFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Ttk_Sticky *sticky_rtn); /* 22 */
@@ -177,10 +177,10 @@ typedef struct TtkStubs {
Ttk_Box (*ttk_ExpandBox) (Ttk_Box b, Ttk_Padding p); /* 33 */
Ttk_Box (*ttk_PlaceBox) (Ttk_Box *cavity, int w, int h, Ttk_Side side, Ttk_Sticky sticky); /* 34 */
Tcl_Obj * (*ttk_NewBoxObj) (Ttk_Box box); /* 35 */
- void (*reserved36)(void);
- void (*reserved37)(void);
- void (*reserved38)(void);
- void (*reserved39)(void);
+ void *reserved36;
+ void *reserved37;
+ void *reserved38;
+ void *reserved39;
int (*ttk_GetOrientFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *orient); /* 40 */
} TtkStubs;
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl
index 51c31c3..b5fc3b3 100644
--- a/generic/ttk/ttkGenStubs.tcl
+++ b/generic/ttk/ttkGenStubs.tcl
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# $Id: ttkGenStubs.tcl,v 1.6 2010/02/05 21:33:14 jenglish Exp $
+# $Id: ttkGenStubs.tcl,v 1.7 2010/06/22 07:41:17 nijtmans Exp $
#
# SOURCE: tcl/tools/genStubs.tcl, revision 1.20
#
@@ -297,7 +297,7 @@ proc genStubs::addPlatformGuard {plat text} {
proc genStubs::emitSlots {name textVar} {
upvar $textVar text
- forAllStubs $name makeSlot noGuard text {" void (*reserved$i)(void);\n"}
+ forAllStubs $name makeSlot noGuard text {" void *reserved$i;\n"}
return
}
@@ -789,7 +789,7 @@ proc genStubs::emitInit {name textVar} {
}
foreach intf [array names interfaces] {
if {[info exists hooks($intf)]} {
- if {$name in $hooks($intf)} {
+ if {0<=[lsearch -exact $hooks($intf) $name]} {
set root 0
break;
}
diff --git a/generic/ttk/ttkTheme.c b/generic/ttk/ttkTheme.c
index 59df20d..e0d1971 100644
--- a/generic/ttk/ttkTheme.c
+++ b/generic/ttk/ttkTheme.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * $Id: ttkTheme.c,v 1.23 2010/03/28 21:43:25 jenglish Exp $
+ * $Id: ttkTheme.c,v 1.24 2010/06/22 07:41:17 nijtmans Exp $
*/
#include <stdlib.h>
@@ -1730,8 +1730,7 @@ void Ttk_StylePkgInit(Tcl_Interp *interp)
*/
Tcl_CreateObjCommand(interp, "::ttk::style", StyleObjCmd, pkgPtr, 0);
- nsPtr = Tcl_FindNamespace(interp, "::ttk", (Tcl_Namespace *) NULL,
- TCL_LEAVE_ERR_MSG);
+ nsPtr = Tcl_FindNamespace(interp, "::ttk", NULL, TCL_LEAVE_ERR_MSG);
Tcl_Export(interp, nsPtr, "style", 0 /* dontResetList */);
Ttk_RegisterElementFactory(interp, "from", Ttk_CloneElement, 0);