Check-in [29f47e8987]
Not logged in
Overview
Comment:Thu Sep 23 02:54:34 CEST 1999
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 29f47e8987021b08dd861b4d9256e7a830221fbd
User & Date: johannes@zellner.org on 1999-09-23 00:56:49
Other Links: manifest | tags
Context
1999-09-27
07:50
Mon Sep 27 09:51:14 CEST 1999 check-in: 1be14666f7 user: johannes@zellner.org tags: trunk
1999-09-23
00:56
Thu Sep 23 02:54:34 CEST 1999 check-in: 29f47e8987 user: johannes@zellner.org tags: trunk
1999-09-22
00:09
Wed Sep 22 02:07:23 CEST 1999 check-in: 9e3c1d7364 user: johannes@zellner.org tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tclreadlineCompleter.tcl from [a0a878b98b] to [ab4dede732].

     1      1   # -*- tclsh -*-
     2      2   # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
     3         -# LAST MODIFICATION: "Tue Sep 21 21:19:07 1999 (joze)"
            3  +# LAST MODIFICATION: "Thu Sep 23 02:16:55 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   #
................................................................................
  1523   1523   		# was found. Check, if it's a proc and return the
  1524   1524   		# arguments.
  1525   1525   		#
  1526   1526   		if {![string length ${namespc}]} {
  1527   1527   			set namespc ::
  1528   1528   		}
  1529   1529   		if {[string length [uplevel [info level] \
  1530         -			namespace eval ${namespc} [list ::info proc $alias]]]} {
  1531         -			set args [uplevel [info level] \
  1532         -			namespace eval ${namespc} [list info args $alias]]
  1533         -			set arg [lindex $args [expr $pos - 1]]
  1534         -			if {"" != $arg && "args" != $arg} {
  1535         -				if {[uplevel [info level] namespace eval \
  1536         -					${namespc} [list info default $alias $arg junk]]} {
  1537         -					return [DisplayHints ?$arg?]
  1538         -				} else {
  1539         -					return [DisplayHints <$arg>]
         1530  +			namespace eval ${namespc} [list ::info proc $alias]]]
         1531  +		} {
         1532  +			if ![string length [string trim $part]] {
         1533  +				set args [uplevel [info level] \
         1534  +				namespace eval ${namespc} [list info args $alias]]
         1535  +				set arg [lindex $args [expr $pos - 1]]
         1536  +				if {"" != $arg && "args" != $arg} {
         1537  +					if {[uplevel [info level] namespace eval \
         1538  +						${namespc} [list info default $alias $arg junk]]} {
         1539  +							return [DisplayHints ?$arg?]
         1540  +						} else {
         1541  +							return [DisplayHints <$arg>]
         1542  +						}
  1540   1543   				}
         1544  +			} else {
         1545  +				return ""; # enable file name completion
  1541   1546   			}
  1542   1547   		}
  1543   1548   
  1544   1549   		# check if the command is an object of known class.
  1545   1550   		# 
  1546   1551   		if [ObjectClassCompleter ${part} ${start} ${end} ${line} ${pos} res] {
  1547   1552   			return ${res}