Check-in [5df4b8fab3]
Not logged in
Overview
Comment:Thu Sep 30 18:03:05 MEST 1999
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5df4b8fab379329254e8f586382884e72a22cc13
User & Date: johannes@zellner.org on 1999-09-30 16:03:24
Other Links: manifest | tags
Context
1999-12-16
21:53
introduced tclshrl and wishrl because a user wants statically linked binaries. check-in: f90495f90f user: johannes@zellner.org tags: trunk
1999-09-30
16:03
Thu Sep 30 18:03:05 MEST 1999 check-in: 5df4b8fab3 user: johannes@zellner.org tags: trunk
01:26
Thu Sep 30 03:25:19 CEST 1999 check-in: 702e7f3410 user: johannes@zellner.org tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tclreadlineCompleter.tcl from [909728e96f] to [9f80a18e5f].

     1      1   # -*- tclsh -*-
     2         -# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
     3         -# LAST MODIFICATION: "Wed Sep 29 21:25:15 1999 (joze)"
            2  +# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
            3  +# LAST MODIFICATION: "Thu Sep 30 16:43:34 1999 (joze)"
     4      4   # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # ---
     7      7   #
     8      8   # tclreadline -- gnu readline for tcl
     9      9   # Copyright (C) 1999  Johannes Zellner
    10     10   #
................................................................................
   614    614   	set cmd [Lindex ${line} 0]
   615    615   	if {"." == [string index ${line} 0]} {
   616    616   		# it's a widget. Try to get it's class name.
   617    617   		#
   618    618   		if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} {
   619    619   			if {[string length [info proc ${class}Obj]]} {
   620    620   				set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}]
   621         -				return 0
          621  +				# puts stderr result=|$result|
          622  +				# joze, Thu Sep 30 16:43:17 1999
          623  +				if {[string length $result]} {
          624  +					return 1
          625  +				} else {
          626  +					return 0
          627  +				}
   622    628   			} else {
   623    629   				return 0
   624    630   			}
   625    631   		}
   626    632   	}
   627    633   	if {![catch [list set type [image type ${cmd}]]]} {
   628    634   		switch -- ${type} {
................................................................................
  4025   4031   				}
  4026   4032   			}
  4027   4033   		}
  4028   4034   
  4029   4035   
  4030   4036   		-image -
  4031   4037   		-selectimage { return [CompleteFromImages ${text} ${always}] }
         4038  +		-selectmode {
         4039  +			return [CompleteFromList ${text} {
         4040  +				single browse multiple extended
         4041  +			}]
         4042  +		}
  4032   4043   
  4033   4044   		-insertofftime -
  4034   4045   		-insertontime -
  4035   4046   		-repeatdelay -
  4036   4047   		-repeatinterval {
  4037   4048   			if ${always} {
  4038   4049   				return [DisplayHints <milliSec>]
................................................................................
  6467   6478   
  6468   6479   		xview -
  6469   6480   		yview { return [WidgetXviewYview ${text} ${line} ${pos} ${prev}] }
  6470   6481   
  6471   6482   		selection {
  6472   6483   			switch -- ${pos} {
  6473   6484   				2 {
  6474         -					return [CompleteFromList ${text} \
  6475         -					{anchor clear includes set}]
         6485  +					return [CompleteFromList ${text} {
         6486  +						anchor clear includes set
         6487  +					}]
  6476   6488   				}
  6477   6489   				3 {
  6478   6490   					switch -- ${prev} {
  6479   6491   						anchor -
  6480   6492   						includes {
  6481   6493   							return [CompleteFromList ${text} {
  6482   6494   								active anchor end @x @y <number>