Overview
| Comment: | Thu Sep 30 18:03:05 MEST 1999 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL 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 |
| 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 | # -*- tclsh -*- | | | | 1 2 3 4 5 6 7 8 9 10 | # -*- tclsh -*- # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 30 16:43:34 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 |
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}]
| > > > > > | > | 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 {
return 0
}
} else {
return 0
}
}
}
if {![catch [list set type [image type ${cmd}]]]} {
switch -- ${type} {
|
| ︙ | ︙ | |||
4025 4026 4027 4028 4029 4030 4031 4032 4033 4034 4035 4036 4037 4038 |
}
}
}
-image -
-selectimage { return [CompleteFromImages ${text} ${always}] }
-insertofftime -
-insertontime -
-repeatdelay -
-repeatinterval {
if ${always} {
return [DisplayHints <milliSec>]
| > > > > > | 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 |
xview -
yview { return [WidgetXviewYview ${text} ${line} ${pos} ${prev}] }
selection {
switch -- ${pos} {
2 {
| | | > | 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 {
return [CompleteFromList ${text} {
anchor clear includes set
}]
}
3 {
switch -- ${prev} {
anchor -
includes {
return [CompleteFromList ${text} {
active anchor end @x @y <number>
|
| ︙ | ︙ |