Diff
Bounty program for improvements to Tcl and certain Tcl packages.

Differences From Artifact [0371a07398]:

To Artifact [04fbf290ac]:


98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
                    set argsArray($arg) true
                } 
            }
            1 {
                set argToExecute {
                    incr idx
                    if {$idx >= [llength $args]} {
                        return -code error "incorrect usage: $arg requires an argument"
                    }
                    set argValue [lindex $args $idx]
                    lappend @[email protected] $arg $argValue
                    set argsArray($arg) $argValue
                }
            }
            default {






|







98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
                    set argsArray($arg) true
                } 
            }
            1 {
                set argToExecute {
                    incr idx
                    if {$idx >= [llength $args]} {
                        return -code error "\"$arg\" option must be followed by value"
                    }
                    set argValue [lindex $args $idx]
                    lappend @[email protected] $arg $argValue
                    set argsArray($arg) $argValue
                }
            }
            default {