@@ -1,8 +1,8 @@ # -*- tclsh -*- -# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" -# LAST MODIFICATION: "Tue Sep 28 23:04:09 1999 (joze)" +# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" +# LAST MODIFICATION: "Wed Sep 29 18:00:58 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl @@ -616,11 +616,11 @@ # it's a widget. Try to get it's class name. # if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} { if {[string length [info proc ${class}Obj]]} { set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}] - return 1 + return 0 } else { return 0 } } } @@ -2008,11 +2008,11 @@ proc complete(file) {text start end line pos mod} { switch -- $pos { 1 { set cmds { - atime attributes copy delete dirname executable exists + atime attributes channels copy delete dirname executable exists extension isdirectory isfile join lstat mkdir mtime nativename owned pathtype readable readlink rename rootname size split stat tail type volumes writable } return [TryFromList $text $cmds] @@ -2020,10 +2020,11 @@ 2 { set cmd [Lindex $line 1] switch -- $cmd { atime - attributes - + channels - dirname - executable - exists - extension - isdirectory -