diff options
| author | nijtmans <nijtmans> | 2008-10-22 20:56:43 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-10-22 20:56:43 (GMT) |
| commit | a8baed51098eafe5ecd9cce9d6a8da628fab0174 (patch) | |
| tree | f3a11af6ca4dfdd77bab832cf288d9605edf6e0f /generic/ttk/ttkGenStubs.tcl | |
| parent | dd7fe8791473c7789707c174fb28450afc762e04 (diff) | |
| download | tk-a8baed51098eafe5ecd9cce9d6a8da628fab0174.zip tk-a8baed51098eafe5ecd9cce9d6a8da628fab0174.tar.gz tk-a8baed51098eafe5ecd9cce9d6a8da628fab0174.tar.bz2 | |
Letting CONST die a slow and graceful death, since NO_CONST was
broken since 8.4 and no-one complained about it.
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 961f36b..29307dc 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.1 2007/03/07 23:46:34 das Exp $ +# $Id: ttkGenStubs.tcl,v 1.2 2008/10/22 20:56:43 nijtmans Exp $ # # SOURCE: tcl/tools/genStubs.tcl, revision 1.20 # @@ -434,7 +434,7 @@ proc genStubs::makeDecl {name decl index} { [lindex $arg 2] if {[string length $line] + [string length $next] \ + $pad > 76} { - append text $line \n + append text [string trimright $line] \n set line "\t\t\t\t" set pad 28 } @@ -452,7 +452,7 @@ proc genStubs::makeDecl {name decl index} { [lindex $arg 2] if {[string length $line] + [string length $next] \ + $pad > 76} { - append text $line \n + append text [string trimright $line] \n set line "\t\t\t\t" set pad 28 } @@ -876,7 +876,7 @@ proc genStubs::init {} { if {[string length [namespace which lassign]] == 0} { proc lassign {valueList args} { if {[llength $args] == 0} { - error "wrong # args: lassign list varname ?varname..?" + error "wrong # args: should be \"lassign list ?varName ...?\"" } uplevel [list foreach $args $valueList {break}] |