Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix another oops. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
db22847a094881c581b781f04d3c5cb8 |
| User & Date: | andreask 2014-08-26 20:56:51 |
Context
|
2014-08-27
| ||
| 23:41 | Bump versions of cmdr::color and cmdr::ask to 1. Fixed a prompt issue in cmdr::ask::string*. Extended debug narrative regarding prompt handling. check-in: 9d0fa722e9 user: andreask tags: trunk | |
|
2014-08-26
| ||
| 20:56 | Fix another oops. check-in: db22847a09 user: andreask tags: trunk | |
| 19:58 | Fix oops. check-in: febbd538cd user: andreask tags: trunk | |
Changes
Changes to officer.tcl.
455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 |
# Prevent handling of application-specific options here.
my set *command* -- $args
set reset 1
}
try {
# Process any options we may find. The first non-option
# will be the command to dispatch on.
set arg [config parse-head-options {*}$args]
# Empty command. Delegate to the default, if we have any.
# Otherwise fail.
if {![llength $args]} {
if {[my hasdefault]} {
return [[my lookup [my default]] do]
}
|
| |
455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 |
# Prevent handling of application-specific options here.
my set *command* -- $args
set reset 1
}
try {
# Process any options we may find. The first non-option
# will be the command to dispatch on.
set args [config parse-head-options {*}$args]
# Empty command. Delegate to the default, if we have any.
# Otherwise fail.
if {![llength $args]} {
if {[my hasdefault]} {
return [[my lookup [my default]] do]
}
|