1
2
3
4
5
6
7
8
9
10
|
1
2
3
4
5
6
7
8
9
10
|
-
-
+
+
|
# -*- tclsh -*-
# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
# LAST MODIFICATION: "Wed Sep 29 21:25:15 1999 (joze)"
# 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
621
622
623
624
625
626
627
628
|
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
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
|
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
6474
6475
6476
6477
6478
6479
6480
6481
6482
|
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}]
return [CompleteFromList ${text} {
anchor clear includes set
}]
}
3 {
switch -- ${prev} {
anchor -
includes {
return [CompleteFromList ${text} {
active anchor end @x @y <number>
|
| ︙ | | |