diff options
| author | jenglish <jenglish@flightlab.com> | 2010-02-05 21:33:13 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2010-02-05 21:33:13 (GMT) |
| commit | cece90e032954ae35ffb33120b3a0a01cd226b25 (patch) | |
| tree | e1ddd82f0d6248b9f354176183943cbe3e82acb5 /generic/ttk/ttkGenStubs.tcl | |
| parent | f21f6c00e18c6a1acd5c854f3bb6dd3430740af5 (diff) | |
| download | tk-cece90e032954ae35ffb33120b3a0a01cd226b25.zip tk-cece90e032954ae35ffb33120b3a0a01cd226b25.tar.gz tk-cece90e032954ae35ffb33120b3a0a01cd226b25.tar.bz2 | |
Laxative patch: Revert contravariant const qualifiers added by the
previous commit to keep codebase in sync with the Tile extension,
which must remain 8.4 compatible.
Diffstat (limited to 'generic/ttk/ttkGenStubs.tcl')
| -rw-r--r-- | generic/ttk/ttkGenStubs.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl index 3575847..51c31c3 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.5 2010/02/05 17:42:21 nijtmans Exp $ +# $Id: ttkGenStubs.tcl,v 1.6 2010/02/05 21:33:14 jenglish Exp $ # # SOURCE: tcl/tools/genStubs.tcl, revision 1.20 # @@ -782,7 +782,7 @@ proc genStubs::emitInit {name textVar} { append text "\nstatic const ${capName}StubHooks ${name}StubHooks = \{\n" set sep " " foreach sub $hooks($name) { - append text $sep "&${sub}ConstStubs" + append text $sep "&${sub}Stubs" set sep ",\n " } append text "\n\};\n" @@ -797,9 +797,9 @@ proc genStubs::emitInit {name textVar} { } if {$root} { - append text "\nconst ${capName}Stubs ${name}ConstStubs = \{\n" + append text "\nconst ${capName}Stubs ${name}Stubs = \{\n" } else { - append text "\nstatic const ${capName}Stubs ${name}ConstStubs = \{\n" + append text "\nstatic const ${capName}Stubs ${name}Stubs = \{\n" } append text " TCL_STUB_MAGIC,\n" append text " ${CAPName}_STUBS_EPOCH,\n" |