Overview
| Comment: | Mon Sep 27 09:51:14 CEST 1999 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1be14666f7c6500d473859f18cd61b90 |
| User & Date: | johannes@zellner.org on 1999-09-27 07:50:10 |
| Other Links: | manifest | tags |
Context
|
1999-09-28
| ||
| 21:19 | Tue Sep 28 23:19:25 CEST 1999 check-in: 3b8130f969 user: johannes@zellner.org tags: trunk | |
|
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 | |
Changes
Modified configure.in from [6a186fe216] to [7b831386c3].
1 2 | # -*- autoconf -*- # FILE: "/home/joze/src/tclreadline/configure.in" | | | 1 2 3 4 5 6 7 8 9 10 | # -*- autoconf -*- # FILE: "/home/joze/src/tclreadline/configure.in" # LAST MODIFICATION: "Mon Sep 27 00:09:59 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
34 35 36 37 38 39 40 | AC_REVISION($Revision$) AC_INIT(tclreadline.c) AC_CONFIG_HEADER(config.h) TCLREADLINE_MAJOR_VERSION=1 TCLREADLINE_MINOR_VERSION=0 | | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
AC_REVISION($Revision$)
AC_INIT(tclreadline.c)
AC_CONFIG_HEADER(config.h)
TCLREADLINE_MAJOR_VERSION=1
TCLREADLINE_MINOR_VERSION=0
TCLREADLINE_PATCHLEVEL=2
TCLREADLINE_VERSION=$TCLREADLINE_MAJOR_VERSION.$TCLREADLINE_MINOR_VERSION
TCLREADLINE_PATCHLEVEL_STR=${TCLREADLINE_VERSION}.${TCLREADLINE_PATCHLEVEL}
VERSION=$TCLREADLINE_VERSION
AC_PREREQ(2.13)
AC_CONFIG_AUX_DIR(./aux)
|
| ︙ | ︙ |
Modified tclreadlineCompleter.tcl from [ab4dede732] to [52758de401].
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: "Mon Sep 27 00:09:06 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
614 615 616 617 618 619 620 621 622 623 624 625 626 627 |
set cmd [Lindex ${line} 0]
if {"." == [string index ${line} 0]} {
# 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
}
}
}
if {![catch [list set type [image type ${cmd}]]]} {
switch -- ${type} {
photo {
| > > | 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 |
set cmd [Lindex ${line} 0]
if {"." == [string index ${line} 0]} {
# 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
} else {
return 0
}
}
}
if {![catch [list set type [image type ${cmd}]]]} {
switch -- ${type} {
photo {
|
| ︙ | ︙ |