Overview
| Comment: | Thu Sep 30 18:03:05 MEST 1999 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5df4b8fab379329254e8f586382884e7 |
| User & Date: | johannes@zellner.org on 1999-09-30 16:03:24.000 |
| 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
Modified tclreadlineCompleter.tcl
from [909728e96f]
to [9f80a18e5f].
1 | 1 2 3 4 5 6 7 8 9 10 | - - + + | # -*- tclsh -*- |
| ︙ | |||
614 615 616 617 618 619 620 | 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 | + + + + + - + + |
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}]
# puts stderr result=|$result|
# joze, Thu Sep 30 16:43:17 1999
if {[string length $result]} {
return 1
} else {
|
| ︙ | |||
4025 4026 4027 4028 4029 4030 4031 4032 4033 4034 4035 4036 4037 4038 | 4031 4032 4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044 4045 4046 4047 4048 4049 | + + + + + |
}
}
}
-image -
-selectimage { return [CompleteFromImages ${text} ${always}] }
-selectmode {
return [CompleteFromList ${text} {
single browse multiple extended
}]
}
-insertofftime -
-insertontime -
-repeatdelay -
-repeatinterval {
if ${always} {
return [DisplayHints <milliSec>]
|
| ︙ | |||
6467 6468 6469 6470 6471 6472 6473 | 6478 6479 6480 6481 6482 6483 6484 6485 6486 6487 6488 6489 6490 6491 6492 6493 6494 | - - + + + |
xview -
yview { return [WidgetXviewYview ${text} ${line} ${pos} ${prev}] }
selection {
switch -- ${pos} {
2 {
|
| ︙ |