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: |
29f47e8987021b08dd861b4d9256e7a8 |
| 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
Modified tclreadlineCompleter.tcl from [a0a878b98b] to [ab4dede732].
1 2 | # -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" | | | 1 2 3 4 5 6 7 8 9 10 | # -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 23 02:16:55 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
1523 1524 1525 1526 1527 1528 1529 |
# was found. Check, if it's a proc and return the
# arguments.
#
if {![string length ${namespc}]} {
set namespc ::
}
if {[string length [uplevel [info level] \
| | > > > > > | 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 |
# was found. Check, if it's a proc and return the
# arguments.
#
if {![string length ${namespc}]} {
set namespc ::
}
if {[string length [uplevel [info level] \
namespace eval ${namespc} [list ::info proc $alias]]]
} {
if ![string length [string trim $part]] {
set args [uplevel [info level] \
namespace eval ${namespc} [list info args $alias]]
set arg [lindex $args [expr $pos - 1]]
if {"" != $arg && "args" != $arg} {
if {[uplevel [info level] namespace eval \
${namespc} [list info default $alias $arg junk]]} {
return [DisplayHints ?$arg?]
} else {
return [DisplayHints <$arg>]
}
}
} else {
return ""; # enable file name completion
}
}
# check if the command is an object of known class.
#
if [ObjectClassCompleter ${part} ${start} ${end} ${line} ${pos} res] {
return ${res}
}
|
| ︙ | ︙ |