diff options
| author | nijtmans <nijtmans> | 2010-02-05 10:56:43 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-05 10:56:43 (GMT) |
| commit | e53aee245eff6859ad19a3960e62218ccb271d48 (patch) | |
| tree | e9d2dcb70e51cc71e4450553e38ee85680b4bff0 /generic/ttk/ttkGenStubs.tcl | |
| parent | b1188968ab6f332dc048c339c8db6e6e9033f6b3 (diff) | |
| download | tk-e53aee245eff6859ad19a3960e62218ccb271d48.zip tk-e53aee245eff6859ad19a3960e62218ccb271d48.tar.gz tk-e53aee245eff6859ad19a3960e62218ccb271d48.tar.bz2 | |
Follow-up to [2010-01-29] commit:
prevent space within stub table function parameters
if the parameter type is a pointer.
Diffstat (limited to 'generic/ttk/ttkGenStubs.tcl')
| -rw-r--r-- | generic/ttk/ttkGenStubs.tcl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/generic/ttk/ttkGenStubs.tcl b/generic/ttk/ttkGenStubs.tcl index f190143..9adbcc9 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.3 2010/01/29 18:07:31 nijtmans Exp $ +# $Id: ttkGenStubs.tcl,v 1.4 2010/02/05 10:56:43 nijtmans Exp $ # # SOURCE: tcl/tools/genStubs.tcl, revision 1.20 # @@ -536,8 +536,11 @@ proc genStubs::makeSlot {name decl index} { TCL_VARARGS { set sep "(" foreach arg [lrange $args 1 end] { - append text $sep [lindex $arg 0] " " [lindex $arg 1] \ - [lindex $arg 2] + append text $sep [lindex $arg 0] + if {[string index $text end] ne "*"} { + append text " " + } + append text [lindex $arg 1] [lindex $arg 2] set sep ", " } append text ", ...)" @@ -545,8 +548,11 @@ proc genStubs::makeSlot {name decl index} { default { set sep "(" foreach arg $args { - append text $sep [lindex $arg 0] " " [lindex $arg 1] \ - [lindex $arg 2] + append text $sep [lindex $arg 0] + if {[string index $text end] ne "*"} { + append text " " + } + append text [lindex $arg 1] [lindex $arg 2] set sep ", " } append text ")" |