diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl')
| -rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl b/Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl index d4435c6125d..acde1b3644f 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/demos/entry3.tcl @@ -102,7 +102,7 @@ foreach {chars digit} {abc 2 def 3 ghi 4 jkl 5 mno 6 pqrs 7 tuv 8 wxyz 9} { proc validatePhoneChange {W vmode idx char} { global phoneNumberMap entry3content - if {$idx == -1} {return 1} + if {$idx < 0} {return 1} after idle [list $W configure -validate $vmode -invcmd bell] if { !($idx<3 || $idx==6 || $idx==7 || $idx==11 || $idx>15) && |