diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-11 19:30:54 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-11 19:30:54 +0000 |
commit | 173a43ff15e62ad8cb716e566ec718f9a6507ef6 (patch) | |
tree | cdbfe501e0b1096a6a15fabaaaae36b5237d086f /src/startup.tcl | |
parent | 76dec044c02bb6d045c2e699501c8e07d75f6013 (diff) | |
download | openocd+libswd-173a43ff15e62ad8cb716e566ec718f9a6507ef6.tar.gz openocd+libswd-173a43ff15e62ad8cb716e566ec718f9a6507ef6.tar.bz2 openocd+libswd-173a43ff15e62ad8cb716e566ec718f9a6507ef6.tar.xz openocd+libswd-173a43ff15e62ad8cb716e566ec718f9a6507ef6.zip |
help is now implemented in startup.tcl/help
git-svn-id: svn://svn.berlios.de/openocd/trunk@797 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/startup.tcl')
-rw-r--r-- | src/startup.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/startup.tcl b/src/startup.tcl index 1b5092e0..294dee28 100644 --- a/src/startup.tcl +++ b/src/startup.tcl @@ -64,12 +64,12 @@ proc flash args { #Print help text for a command. Word wrap #help text that is too wide inside column. -proc tcl_help {args} { +proc help {args} { global ocd_helptext set cmd $args foreach a [lsort $ocd_helptext] { if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} { - set w 40 + set w 50 set cmdname [lindex $a 0] set h [lindex $a 1] set n 0 @@ -96,7 +96,7 @@ proc tcl_help {args} { } } -add_help_text tcl_help "Tcl implementation of help command" +add_help_text help "Tcl implementation of help command" # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command |