diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
| commit | c022d991663c8b76a27664090d92df0ad1a01dbb (patch) | |
| tree | b8267b8025bccdba2a79df3790081030fc9e28ec /library/demos | |
| parent | b33639f20e412831ed8724517ba70b2cdab6be57 (diff) | |
| download | tk-c022d991663c8b76a27664090d92df0ad1a01dbb.zip tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.gz tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.bz2 | |
[Bug 3555644]: Better use of virtual events.
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/entry3.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/entry3.tcl b/library/demos/entry3.tcl index 3d76c2e..d4435c6 100644 --- a/library/demos/entry3.tcl +++ b/library/demos/entry3.tcl @@ -169,8 +169,8 @@ bind $w.l3.e <FocusIn> { after idle {%W selection clear} } } -bind $w.l3.e <Left> {phoneSkipLeft %W} -bind $w.l3.e <Right> {phoneSkipRight %W} +bind $w.l3.e <<PrevChar>> {phoneSkipLeft %W} +bind $w.l3.e <<NextChar>> {phoneSkipRight %W} pack $w.l3.e -fill x -expand 1 -padx 1m -pady 1m labelframe $w.l4 -text "Password Entry" |