OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-05-16 10:54:53 +03:00
Code

0024802: "help" command shouldn't apply implicit rules in definition process of what command description it should show

Browse Source 
-When in "help <command>" <command> was exactly found in existing draw commands, then helpstring for this <command> is displayed,
  else "help" fails and error message is displayed
 -When "*word" or "word*" or any other combination is given in args, then help command performs typical wildcard search.
This commit is contained in:
apl 2014-10-06 18:55:14 +04:00 committed by bugmaster
parent e3709f1d0a
commit 2bc75a1bce
1 changed files with 42 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/DrawResources/StandardCommands.tcl
View File

@ -61,8 +61,8 @@ proc help {{command ""} {helpstring ""} {group "Procedures"}} {
}
} elseif {$helpstring == ""} {
# help fonction
append command "*"
# help function
set isfound 0
foreach f [lsort [array names Draw_Helps]] {
if {[string match $command $f]} {
puts -nonewline $f
@ -70,6 +70,14 @@ proc help {{command ""} {helpstring ""} {group "Procedures"}} {
puts -nonewline " "
}
puts " : $Draw_Helps($f)"
set isfound 1
}
}
if {!$isfound} {
if {[string first * $command] != -1} {
puts "No matching commands found!"
} else {
puts "No help found for '$command'! Please try 'help $command*' to find matching commands."
}
}
} else {