diff options
| author | nijtmans <nijtmans> | 2010-06-22 07:41:17 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-22 07:41:17 (GMT) |
| commit | d1c5374bb608709386205d4b61bef1578672e71d (patch) | |
| tree | 14cad3250e33d4643410e01d9dd52ac86464802d /generic/ttk/ttkGenStubs.tcl | |
| parent | b888cd3011dbbc4984d32475243bb501947969f2 (diff) | |
| download | tk-d1c5374bb608709386205d4b61bef1578672e71d.zip tk-d1c5374bb608709386205d4b61bef1578672e71d.tar.gz tk-d1c5374bb608709386205d4b61bef1578672e71d.tar.bz2 | |
[Bug #3019363] "make genstubs" failure
Diffstat (limited to 'generic/ttk/ttkGenStubs.tcl')
| -rw-r--r-- | generic/ttk/ttkGenStubs.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |