diff options
| author | jenglish <jenglish@noemail.net> | 2003-01-14 19:23:55 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2003-01-14 19:23:55 (GMT) |
| commit | fbd7e71c963f50a7d378158c8d5a129f457dd3eb (patch) | |
| tree | 5785c6425b51ccf9e86588eaabdb2c5c93cadbed /tests | |
| parent | bd03899c03e92fe5485edf06c8ee19d17bf877e0 (diff) | |
| download | tk-fbd7e71c963f50a7d378158c8d5a129f457dd3eb.zip tk-fbd7e71c963f50a7d378158c8d5a129f457dd3eb.tar.gz tk-fbd7e71c963f50a7d378158c8d5a129f457dd3eb.tar.bz2 | |
* generic/tkSelect.c (Tk_CreateSelHandler):
Fix for #666346 "Selection handling crashes under KDE 3.0"
* tests/unixSelect.test (unixSelect-1.20): Added test case.
FossilOrigin-Name: d6fd320a3fbd5ed8fcdfeb9ed2b6da8ebdf5f859
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/unixSelect.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/unixSelect.test b/tests/unixSelect.test index efe11a8..ddbdc35 100644 --- a/tests/unixSelect.test +++ b/tests/unixSelect.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixSelect.test,v 1.7 2002/10/01 08:48:09 dkf Exp $ +# RCS: @(#) $Id: unixSelect.test,v 1.8 2003/01/14 19:24:51 jenglish Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -348,6 +348,16 @@ test unixSelect-1.19 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixO list [string equal i[string repeat [string repeat \u00c4\u00e4 50]\n 21] $x] \ [string length $x] [string bytelength $x] } {1 2122 4222} +test unixSelect-1.20 {Automatic UTF8_STRING support for selection handle} {unixOnly} { + # See Bug #666346 "Selection handling crashes under KDE 3.0" + label .l + selection handle .l [list handler STRING] + set selValue "This is the selection value" + selection own .l + set result [selection get -type UTF8_STRING] + destroy .l + set result +} "This is the selection value" # cleanup ::tcltest::cleanupTests |