diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-20 10:16:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-20 10:16:39 (GMT) |
commit | e68b3bed2a448e1d6a66467cb333662f6bb31060 (patch) | |
tree | 28e2f5cb44231de11ca7c2ed42a4f9d2b06eb34f /library/demos/image2.tcl | |
parent | 1075a3a387cd7209472fa59e506cfad79f8499eb (diff) | |
download | tk-e68b3bed2a448e1d6a66467cb333662f6bb31060.zip tk-e68b3bed2a448e1d6a66467cb333662f6bb31060.tar.gz tk-e68b3bed2a448e1d6a66467cb333662f6bb31060.tar.bz2 |
Bindings consistancy: Use "Key" in stead of "KeyPress" and "Button" in stead of "ButtonPress" in all demo's.
Diffstat (limited to 'library/demos/image2.tcl')
-rw-r--r-- | library/demos/image2.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/image2.tcl b/library/demos/image2.tcl index 2d7ba03..7af52be 100644 --- a/library/demos/image2.tcl +++ b/library/demos/image2.tcl @@ -95,7 +95,7 @@ listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set" ttk::scrollbar $w.f.scroll -command "$w.f.list yview" pack $w.f.list $w.f.scroll -side left -fill y -expand 1 $w.f.list insert 0 earth.gif earthris.gif teapot.ppm -bind $w.f.list <Double-1> "loadImage $w %x %y" +bind $w.f.list <Double-Button-1> "loadImage $w %x %y" catch {image delete image2a} image create photo image2a |