diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-07-17 00:21:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-07-17 00:21:37 (GMT) |
| commit | b3f48b25110d57eab99cb1568d5818a9a45df71a (patch) | |
| tree | 08dbadd65d3588031ab375cc936c16a0d4912f4f | |
| parent | 4af66cfe86cf0a0e378c0fd3e490887af4efb9f3 (diff) | |
| download | tk-b3f48b25110d57eab99cb1568d5818a9a45df71a.zip tk-b3f48b25110d57eab99cb1568d5818a9a45df71a.tar.gz tk-b3f48b25110d57eab99cb1568d5818a9a45df71a.tar.bz2 | |
* Renamed tk::histNum to tk::HistNum
as directed by the Tcl Style Guide.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/console.tcl | 28 | ||||
| -rw-r--r-- | library/unsupported.tcl | 4 |
3 files changed, 21 insertions, 16 deletions
@@ -1,6 +1,11 @@ 2001-07-16 Don Porter <dgp@users.sourceforge.net> BRANCH dgp-privates-into-namespace: + * library/console.tcl: + * library/unsupported.tcl: Renamed tk::histNum to tk::HistNum + as directed by the Tcl Style Guide. + + BRANCH dgp-privates-into-namespace: * ChangeLog: * README: * deleted_files/xlib/ximage.c: diff --git a/library/console.tcl b/library/console.tcl index 9f5c7d9..267c20a 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -4,7 +4,7 @@ # can be used by non-unix systems that do not have built-in support # for shells. # -# RCS: @(#) $Id: console.tcl,v 1.10.4.2 2001/07/03 20:01:09 dgp Exp $ +# RCS: @(#) $Id: console.tcl,v 1.10.4.3 2001/07/17 00:21:37 dgp Exp $ # # Copyright (c) 1995-1997 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Ajuba Solutions. @@ -165,39 +165,39 @@ proc ::tk::ConsoleInvoke {args} { # This procedure implements command line history for the # console. In general is evals the history command in the # main interpreter to obtain the history. The variable -# ::tk::histNum is used to store the current location in the history. +# ::tk::HistNum is used to store the current location in the history. # # Arguments: # cmd - Which action to take: prev, next, reset. -set ::tk::histNum 1 +set ::tk::HistNum 1 proc ::tk::ConsoleHistory {cmd} { - variable histNum + variable HistNum switch $cmd { prev { - incr histNum -1 - if {$histNum == 0} { + incr HistNum -1 + if {$HistNum == 0} { set cmd {history event [expr {[history nextid] -1}]} } else { - set cmd "history event $histNum" + set cmd "history event $HistNum" } if {[catch {consoleinterp eval $cmd} cmd]} { - incr histNum + incr HistNum return } .console delete promptEnd end .console insert promptEnd $cmd {input stdin} } next { - incr histNum - if {$histNum == 0} { + incr HistNum + if {$HistNum == 0} { set cmd {history event [expr {[history nextid] -1}]} - } elseif {$histNum > 0} { + } elseif {$HistNum > 0} { set cmd "" - set histNum 1 + set HistNum 1 } else { - set cmd "history event $histNum" + set cmd "history event $HistNum" } if {[string compare $cmd ""]} { catch {consoleinterp eval $cmd} cmd @@ -206,7 +206,7 @@ proc ::tk::ConsoleHistory {cmd} { .console insert promptEnd $cmd {input stdin} } reset { - set histNum 1 + set HistNum 1 } } } diff --git a/library/unsupported.tcl b/library/unsupported.tcl index d9eb91f..07aff44 100644 --- a/library/unsupported.tcl +++ b/library/unsupported.tcl @@ -3,7 +3,7 @@ # Commands provided by Tk without official support. Use them at your # own risk. They may change or go away without notice. # -# RCS: @(#) $Id: unsupported.tcl,v 1.1.2.2 2001/03/09 00:00:50 dgp Exp $ +# RCS: @(#) $Id: unsupported.tcl,v 1.1.2.3 2001/07/17 00:21:37 dgp Exp $ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -229,7 +229,7 @@ namespace eval ::tk::unsupported { variable PrivateVariables array set PrivateVariables { - histNum ::tk::histNum + histNum ::tk::HistNum tkFocusIn ::tk::FocusIn tkFocusOut ::tk::FocusOut tkPalette ::tk::Palette |