From 66278911da2b56df47120f7ceaa73cb379723c79 Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Sun, 11 Jan 2009 23:08:57 +0000
Subject: [Bug 2336454] fixed keysyms used in bind tests.

---
 ChangeLog       |  4 ++++
 tests/bind.test | 61 ++++++++++++++++++++++++++++-----------------------------
 2 files changed, 34 insertions(+), 31 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 483c261..76ddfd4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-11  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* tests/bind.test: Fixed keysym bind tests for unix [Bug 2336454]
+
 2009-01-11  George Peter Staplin <georgeps@users.sourceforge.net>
 
 	* generic/tkEvent.c: Fix a possible segv due to a NULL
diff --git a/tests/bind.test b/tests/bind.test
index 23438fc..b3b82b1 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: bind.test,v 1.26 2008/11/23 21:58:24 patthoyts Exp $
+# RCS: @(#) $Id: bind.test,v 1.27 2009/01/11 23:08:58 patthoyts Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -563,12 +563,12 @@ test bind-13.1 {Tk_BindEvent procedure} -setup {
     bind Test <KeyPress> {lappend x "%W %K Test KeyPress"}
     bind all <KeyPress> {lappend x "%W %K all KeyPress"}
     bind Test : {lappend x "%W %K Test :"}
-    bind all _ {lappend x "%W %K all _"}
+    bind all  _ {lappend x "%W %K all _"}
     bind .t.f : {lappend x "%W %K .t.f :"}
     
-    event generate .t.f <Key-:>
-    event generate .t.f <Key-+>
-    event generate .t.f <Key-_>
+    event generate .t.f <Key-colon>
+    event generate .t.f <Key-plus>
+    event generate .t.f <Key-underscore>
     return $x
 } -cleanup {
     destroy .t.f
@@ -621,7 +621,7 @@ test bind-13.3 {Tk_BindEvent procedure} -setup {
 test bind-13.4 {Tk_BindEvent procedure} -setup {
     proc foo {} {
         set x 44
-        event generate .t.f <Key-:>
+        event generate .t.f <Key-colon>
     }
     frame .t.f -class Test -width 150 -height 100
     pack .t.f
@@ -664,7 +664,7 @@ test bind-13.7 {Tk_BindEvent procedure} -setup {
     bind .t.f : {lappend x "%W (.t.f binding)"}
     bind Test : {lappend x "%W (Test binding)"}
     bind all : {bind .t.f : {}; lappend x "%W (all binding)"}
-    event generate .t.f <Key-:>
+    event generate .t.f <Key-colon>
     return $x
 } -cleanup {
     bind Test : {}
@@ -681,7 +681,7 @@ test bind-13.8 {Tk_BindEvent procedure} -setup {
     bind .t.f : {lappend x "%W (.t.f binding)"}
     bind Test : {lappend x "%W (Test binding)"}
     bind all : {destroy .t.f; lappend x "%W (all binding)"}
-    event generate .t.f <Key-:>
+    event generate .t.f <Key-colon>
     return $x
 } -cleanup {
     bind Test : {}
@@ -763,8 +763,8 @@ test bind-13.13 {Tk_BindEvent procedure: valid key detail} -setup {
 } -body {
     bind .t.f <Key> "lappend x Key%K"
     bind .t.f <KeyRelease> "lappend x Release%K"
-    event generate .t.f <Key> -keysym :
-    event generate .t.f <KeyRelease> -keysym :
+    event generate .t.f <Key> -keysym colon
+    event generate .t.f <KeyRelease> -keysym colon
     return $x
 } -cleanup {
     destroy .t.f
@@ -6143,18 +6143,17 @@ test bind-28.4 {keysym names} -body {
     destroy .t.f
 } -result {a}
 
-
 test bind-28.5 {keysym names} -setup {
     frame .t.f -class Test -width 150 -height 100
     pack .t.f
     focus -force .t.f
     update
 } -body {
-	bind .t.f <Key-:> "lappend x \"keysym received\""
-	bind .t.f <Key-_> "lappend x {bad binding match}"
-	set x [lsort [bind .t.f]]
-	event generate .t.f <Key-:> ;# -state 0
-	set x
+    bind .t.f <Key-colon> "lappend x \"keysym received\""
+    bind .t.f <Key-underscore> "lappend x {bad binding match}"
+    set x [lsort [bind .t.f]]
+    event generate .t.f <Key-colon> ;# -state 0
+    set x
 } -cleanup {
     destroy .t.f
 } -result {: _ {keysym received}}
@@ -6164,11 +6163,11 @@ test bind-28.6 {keysym names} -setup {
     focus -force .t.f
     update
 } -body {
-	bind .t.f <Key-Return> "lappend x \"keysym Return\""
-	bind .t.f <Key-x> "lappend x {bad binding match}"
-	set x [lsort [bind .t.f]]
-	event generate .t.f <Key-Return> -state 0
-	set x
+    bind .t.f <Key-Return> "lappend x \"keysym Return\""
+    bind .t.f <Key-x> "lappend x {bad binding match}"
+    set x [lsort [bind .t.f]]
+    event generate .t.f <Key-Return> -state 0
+    set x
 } -cleanup {
     destroy .t.f
 } -result {<Key-Return> x {keysym Return}}
@@ -6178,11 +6177,11 @@ test bind-28.7 {keysym names} -setup {
     focus -force .t.f
     update
 } -body {
-	bind .t.f <Key-X> "lappend x \"keysym X\""
-	bind .t.f <Key-x> "lappend x {bad binding match}"
-	set x [lsort [bind .t.f]]
-	event generate .t.f <Key-X> -state 1
-	set x
+    bind .t.f <Key-X> "lappend x \"keysym X\""
+    bind .t.f <Key-x> "lappend x {bad binding match}"
+    set x [lsort [bind .t.f]]
+    event generate .t.f <Key-X> -state 1
+    set x
 } -cleanup {
     destroy .t.f
 } -result {X x {keysym X}}
@@ -6192,11 +6191,11 @@ test bind-28.8 {keysym names} -setup {
     focus -force .t.f
     update
 } -body {
-	bind .t.f <Key-X> "lappend x \"keysym X\""
-	bind .t.f <Key-x> "lappend x {bad binding match}"
-	set x [lsort [bind .t.f]]
-	event generate .t.f <Key-X> -state 1
-	set x
+    bind .t.f <Key-X> "lappend x \"keysym X\""
+    bind .t.f <Key-x> "lappend x {bad binding match}"
+    set x [lsort [bind .t.f]]
+    event generate .t.f <Key-X> -state 1
+    set x
 } -cleanup {
     destroy .t.f
 } -result {X x {keysym X}}
-- 
cgit v0.12