diff options
| author | jenglish@flightlab.com <jenglish> | 2003-01-14 19:23:55 (GMT) |
|---|---|---|
| committer | jenglish@flightlab.com <jenglish> | 2003-01-14 19:23:55 (GMT) |
| commit | d97ba7799c1b66ae7661f463716947ef39f16bd6 (patch) | |
| tree | 5785c6425b51ccf9e86588eaabdb2c5c93cadbed /tests/unixSelect.test | |
| parent | 98436e738546e283886125e20dd61c962f2cbc1d (diff) | |
| download | tk-d97ba7799c1b66ae7661f463716947ef39f16bd6.zip tk-d97ba7799c1b66ae7661f463716947ef39f16bd6.tar.gz tk-d97ba7799c1b66ae7661f463716947ef39f16bd6.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.
Diffstat (limited to 'tests/unixSelect.test')
| -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 |