(run_command): preserve special characters in command invocation.
authorsls <sls>
Fri, 23 Jun 1995 07:21:14 +0000 (07:21 +0000)
committersls <sls>
Fri, 23 Jun 1995 07:21:14 +0000 (07:21 +0000)
lists.tcl

index 47ca61e9858ebd84e29572638c713e85191dc7dd..58533fa2785fcdb152b89f5ad6d12377c2410496 100644 (file)
--- a/lists.tcl
+++ b/lists.tcl
@@ -222,7 +222,7 @@ widget tkinspect_list {
        if [string length $slot(command)] {
            set slot(current_item) $item
            if [string length $slot(current_item)] {
-               uplevel #0 [concat $slot(command) $slot(current_item)]
+               uplevel #0 [concat $slot(command) [list $slot(current_item)]]
            }
        }       
     }