Index: tclreadlineCompleter.tcl
==================================================================
--- tclreadlineCompleter.tcl
+++ tclreadlineCompleter.tcl
@@ -1,8 +1,8 @@
 # -*- tclsh -*-
-# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
-# LAST MODIFICATION: "Wed Sep 29 21:25:15 1999 (joze)"
+# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
+# LAST MODIFICATION: "Thu Sep 30 16:43:34 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -616,11 +616,17 @@
 		# 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 0
+				# puts stderr result=|$result|
+				# joze, Thu Sep 30 16:43:17 1999
+				if {[string length $result]} {
+					return 1
+				} else {
+					return 0
+				}
 			} else {
 				return 0
 			}
 		}
 	}
@@ -4027,10 +4033,15 @@
 		}
 
 
 		-image -
 		-selectimage { return [CompleteFromImages ${text} ${always}] }
+		-selectmode {
+			return [CompleteFromList ${text} {
+				single browse multiple extended
+			}]
+		}
 
 		-insertofftime -
 		-insertontime -
 		-repeatdelay -
 		-repeatinterval {
@@ -6469,12 +6480,13 @@
 		yview { return [WidgetXviewYview ${text} ${line} ${pos} ${prev}] }
 
 		selection {
 			switch -- ${pos} {
 				2 {
-					return [CompleteFromList ${text} \
-					{anchor clear includes set}]
+					return [CompleteFromList ${text} {
+						anchor clear includes set
+					}]
 				}
 				3 {
 					switch -- ${prev} {
 						anchor -
 						includes {