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
3
4
5
6
7
8
9
10
..
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# -*- autoconf -*- # FILE: "/home/joze/src/tclreadline/configure.in" # LAST MODIFICATION: "Tue Sep 21 21:12:23 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # ................................................................................ AC_REVISION($Revision$) AC_INIT(tclreadline.c) AC_CONFIG_HEADER(config.h) TCLREADLINE_MAJOR_VERSION=1 TCLREADLINE_MINOR_VERSION=0 TCLREADLINE_PATCHLEVEL=1 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) |
|
|
|
1
2
3
4
5
6
7
8
9
10
..
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# -*- 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 # ................................................................................ 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
3
4
5
6
7
8
9
10
...
614
615
616
617
618
619
620
621
622
623
624
625
626
627
|
# -*- 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 # ................................................................................ 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 { |
|
>
>
|
1
2
3
4
5
6
7
8
9
10
...
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
|
# -*- 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 # ................................................................................ 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 { |